diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-29 15:17:47 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-29 15:17:47 -0400 |
| commit | 6a92c954c8018f7acf25cc8a0e66bce5d1eed781 (patch) | |
| tree | 10c93a6f8012d29d04b35a3524c47c00c8cf9be0 /ControlWindow.hs | |
| parent | 37eb3fc850cb28bcf72d971b4fff99902bbce811 (diff) | |
| download | debug-me-6a92c954c8018f7acf25cc8a0e66bce5d1eed781.tar.gz | |
be clear when control window is done
Can be confusing otherwise when running debug-me --control
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 |