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