diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-18 14:18:16 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-18 14:20:09 -0400 |
| commit | 9102a47c6c68039a288a6ee8f43fe14b034ce356 (patch) | |
| tree | e88eefe101db6381625518c68c7d8ed9e1fe3bac /debug-me.hs | |
| parent | ccdb5a3c6a28cc6745d337bdb67e62d70216ef7e (diff) | |
| download | debug-me-9102a47c6c68039a288a6ee8f43fe14b034ce356.tar.gz | |
add --replay option
This commit was sponsored by Ole-Morten Duesund on Patreon.
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 |