Replay.hs


1
2
3
4
5
6
7
8
9
10
11
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