diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-19 20:12:28 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-19 20:12:28 -0400 |
commit | 4991dc1458e1a72785c9ba81af7e7eee5442acbf (patch) | |
tree | e66d4830d086c41e74626bc76d706468ea4af8b1 | |
parent | f7999cecc2bb0c76d88005444478e8500c624786 (diff) | |
download | debug-me-4991dc1458e1a72785c9ba81af7e7eee5442acbf.tar.gz |
add missing log
-rw-r--r-- | debug-me.hs | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/debug-me.hs b/debug-me.hs index dc50b1c..5238b89 100644 --- a/debug-me.hs +++ b/debug-me.hs @@ -352,17 +352,19 @@ sendPtyInput ichan ochan p us logger = go now <- getPOSIXTime v <- atomically $ getDeveloperMessage ichan ochan us now case v of - InputMessage (ActivityMessage entered) -> do - logger $ Developer $ ActivityMessage entered + InputMessage msg@(ActivityMessage entered) -> do + logger $ Developer msg writePty p $ val $ enteredData $ activity entered go - InputMessage (ControlMessage (Control c _)) -> case c of - SessionKey pk -> do - checkDeveloperPublicKey ochan us logger pk - go - Rejected r -> protocolError $ "User side received a Rejected: " ++ show r - SessionKeyAccepted _ -> protocolError "User side received a SessionKeyAccepted" - SessionKeyRejected _ -> protocolError "User side received a SessionKeyRejected" + InputMessage msg@(ControlMessage (Control c _)) -> do + logger $ Developer msg + case c of + SessionKey pk -> do + checkDeveloperPublicKey ochan us logger pk + go + Rejected r -> protocolError $ "User side received a Rejected: " ++ show r + SessionKeyAccepted _ -> protocolError "User side received a SessionKeyAccepted" + SessionKeyRejected _ -> protocolError "User side received a SessionKeyRejected" RejectedMessage rej -> do logger $ User rej go |