diff options
Diffstat (limited to 'debug-me.hs')
| -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 |