diff options
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) |