From 5ddda2f7684857e90f45c37d030858773e96ee99 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 29 Apr 2017 15:58:38 -0400 Subject: don't forward other developer's SessionKey control messages to control window The control window doesn't know it's running for a developer, so it would prompt to allow these, which was pointless. --- ControlWindow.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'ControlWindow.hs') diff --git a/ControlWindow.hs b/ControlWindow.hs index 74514be..fea6351 100644 --- a/ControlWindow.hs +++ b/ControlWindow.hs @@ -133,6 +133,7 @@ askToAllow ochan promptchan responsechan k@(GpgSigned pk _) = do ControlOutputAction $ SessionKeyRejected pk let accept = do putStrLn "Accepting their connection. They can now enter commands in this debug-me session." + putStrLn "(And, you can type in this window to chat with them.)" atomically $ writeTMChan ochan $ ControlOutputAction $ SessionKeyAccepted pk case v of -- cgit v1.2.3