From 6a92c954c8018f7acf25cc8a0e66bce5d1eed781 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 29 Apr 2017 15:17:47 -0400 Subject: be clear when control window is done Can be confusing otherwise when running debug-me --control --- ControlWindow.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'ControlWindow.hs') diff --git a/ControlWindow.hs b/ControlWindow.hs index edd493e..3bd0e58 100644 --- a/ControlWindow.hs +++ b/ControlWindow.hs @@ -47,6 +47,7 @@ controlWindow _ = do _ <- connectControlSocket socketfile ichan ochan `race` displayInput ochan ichan promptchan responsechan `race` collectOutput ochan promptchan responsechan + putStrLn $ "** " ++ winDesc ++ " closing; debug-me session is done" return () -- | Opens the control window, or if that can't be done, tells the user -- cgit v1.2.3