diff options
Diffstat (limited to 'debug-me.hs')
-rw-r--r-- | debug-me.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/debug-me.hs b/debug-me.hs index 0b51878..3cc1f09 100644 --- a/debug-me.hs +++ b/debug-me.hs @@ -9,6 +9,7 @@ import CmdLine import Log import Graphviz import Replay +import Session import Control.Concurrent import Control.Concurrent.Async @@ -32,9 +33,8 @@ main = do test :: IO () test = do - exitstatus <- go ">>> debug-me session starting" - putStrLn "" - putStrLn ">>> debug-me session is done" + exitstatus <- go startSession + sessionDone exitWith exitstatus where go startmsg = runWithPty "dash" [] $ \(p, ph) -> do |