From 4991dc1458e1a72785c9ba81af7e7eee5442acbf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 19 Apr 2017 20:12:28 -0400 Subject: add missing log --- debug-me.hs | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) (limited to 'debug-me.hs') 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 -- cgit v1.2.3