add missing log

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