From a835e9e4b410d98bcae0c0f5be485e6daac407d4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 25 Apr 2017 00:21:44 -0400 Subject: include "session is done" in the session transcript Including the process exit status. And cleaner Role.User shutdown sequence. --- Replay.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Replay.hs') 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 () -- cgit v1.2.3