summaryrefslogtreecommitdiffhomepage
path: root/Replay.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Replay.hs')
-rw-r--r--Replay.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Replay.hs b/Replay.hs
index 9612d5b..1993ce3 100644
--- a/Replay.hs
+++ b/Replay.hs
@@ -3,7 +3,6 @@ module Replay where
import Types
import Log
import CmdLine
-import Session
import qualified Data.ByteString as B
import System.IO
@@ -12,7 +11,7 @@ import Control.Concurrent.Thread.Delay
replay :: ReplayOpts -> IO ()
replay opts = go Nothing =<< streamLog (replayLogFile opts)
where
- go _ [] = sessionDone
+ go _ [] = return ()
go prevts (Right l:ls) = do
case prevts of
Nothing -> return ()