diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-26 14:26:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-26 14:26:59 -0400 |
| commit | 4989367e8888cbe1457e2c11fad2ebb9cd75fb4f (patch) | |
| tree | 948f0163187c030a43bc67ccc5f0c6747d4365d9 /Role/Developer.hs | |
| parent | 6591e2b974ac22cbc2a06141edef76a775726e11 (diff) | |
| download | debug-me-4989367e8888cbe1457e2c11fad2ebb9cd75fb4f.tar.gz | |
rename fields
Diffstat (limited to 'Role/Developer.hs')
| -rw-r--r-- | Role/Developer.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Role/Developer.hs b/Role/Developer.hs index d6cbf2b..e3d4a8c 100644 --- a/Role/Developer.hs +++ b/Role/Developer.hs @@ -47,7 +47,8 @@ data DeveloperState = DeveloperState , enteredSince :: [Hash] , lastActivity :: Hash , developerSessionKey :: MySessionKey - , developerSigVerifier :: SigVerifier + , userSigVerifier :: SigVerifier + -- ^ Used to verify signatures on messages from the user. } -- | Read things typed by the developer, and forward them to the TMChan. @@ -154,7 +155,7 @@ getServerMessage ochan devstate = do Just (User msg) -> do ds <- readTVar devstate -- Check user's signature before doing anything else. - if verifySigned (developerSigVerifier ds) msg + if verifySigned (userSigVerifier ds) msg then do o <- processuser ds msg return (Just (o, User msg)) @@ -262,6 +263,6 @@ processSessionStart ochan logger = do , enteredSince = mempty , lastActivity = starthash , developerSessionKey = sk - , developerSigVerifier = sigverifier + , userSigVerifier = sigverifier } return (st, output) |