diff options
Diffstat (limited to 'ControlWindow.hs')
| -rw-r--r-- | ControlWindow.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |