diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-25 00:21:44 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-25 00:21:44 -0400 |
commit | a835e9e4b410d98bcae0c0f5be485e6daac407d4 (patch) | |
tree | 86a414b3e8bc767c265da44a0f1ea5cd6b62ec4d /Replay.hs | |
parent | 17d76b2a59d496a2ffd6d2199b1c6ad563b0bb5b (diff) | |
download | debug-me-a835e9e4b410d98bcae0c0f5be485e6daac407d4.tar.gz |
include "session is done" in the session transcript
Including the process exit status.
And cleaner Role.User shutdown sequence.
Diffstat (limited to 'Replay.hs')
-rw-r--r-- | Replay.hs | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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 () |