From ccdb5a3c6a28cc6745d337bdb67e62d70216ef7e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Apr 2017 13:54:16 -0400 Subject: refactor out Log --- Replay.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 Replay.hs (limited to 'Replay.hs') 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 -- cgit v1.2.3