diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-18 13:54:16 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-18 14:04:42 -0400 |
commit | ccdb5a3c6a28cc6745d337bdb67e62d70216ef7e (patch) | |
tree | 1a63fac950bf66bba59812d8e2f6b66aa1a05c63 /Replay.hs | |
parent | 88a9ce01d153ad609aa02084de0a93448c29cba4 (diff) | |
download | debug-me-ccdb5a3c6a28cc6745d337bdb67e62d70216ef7e.tar.gz |
refactor out Log
Diffstat (limited to 'Replay.hs')
-rw-r--r-- | Replay.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/Replay.hs b/Replay.hs new file mode 100644 index 0000000..599ca77 --- /dev/null +++ b/Replay.hs @@ -0,0 +1,12 @@ +module Replay where + +import Types +import Log +import CmdLine + +replay :: ReplayOpts -> IO () +replay opts = go =<< loadLog (replayLogFile opts) + where + go [] = return () + go (l:ls) = do + go ls |