include "session is done" in the session transcript

Including the process exit status.

And cleaner Role.User shutdown sequence.

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 ()