From 2cd4c53ece2d935b044c65802824810eb712b1c2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 4 May 2017 13:14:33 -0400 Subject: reword message for length --- ControlWindow.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ControlWindow.hs') diff --git a/ControlWindow.hs b/ControlWindow.hs index 5163a95..a91adc0 100644 --- a/ControlWindow.hs +++ b/ControlWindow.hs @@ -167,7 +167,7 @@ askToAllow ochan promptchan responsechan k@(GpgSigned pk _) = do atomically $ writeTMChan ochan $ ControlOutputAction $ SessionKeyRejected pk accept = do - putStrLn "Accepting their connection. They can now enter commands in this debug-me session." + putStrLn "Connection accepted. 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 -- cgit v1.2.3