From 9102a47c6c68039a288a6ee8f43fe14b034ce356 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Apr 2017 14:18:16 -0400 Subject: add --replay option This commit was sponsored by Ole-Morten Duesund on Patreon. --- debug-me.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'debug-me.hs') 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 -- cgit v1.2.3