stream the log

avoid processing it in memory, and allow parse errors at end to not
prevent displaying part of it

1 files changed, 3 insertions, 2 deletions

diff --git a/Replay.hs b/Replay.hs
index b13012d..9612d5b 100644
--- a/Replay.hs
+++ b/Replay.hs
@@ -10,10 +10,10 @@ import System.IO
 import Control.Concurrent.Thread.Delay
 
 replay :: ReplayOpts -> IO ()
-replay opts = go Nothing =<< loadLog (replayLogFile opts)
+replay opts = go Nothing =<< streamLog (replayLogFile opts)
   where
 	go _ [] = sessionDone
-	go prevts (l:ls) = do
+	go prevts (Right l:ls) = do
 		case prevts of
 			Nothing -> return ()
 			Just t ->
@@ -28,3 +28,4 @@ replay opts = go Nothing =<< loadLog (replayLogFile opts)
 			User (ControlMessage _) -> return ()
 			Developer _ -> return ()
 		go (Just $ loggedTimestamp l) ls
+	go _ (Left l:_) = error $ "Failed to parse a line of the log: " ++ l