diff options
Diffstat (limited to 'Replay.hs')
-rw-r--r-- | Replay.hs | 16 |
1 files changed, 14 insertions, 2 deletions
@@ -8,19 +8,24 @@ module Replay where import Types import Log import CmdLine +import Pty import qualified Data.ByteString as B import System.IO +import Control.Concurrent.Async import Control.Concurrent.Thread.Delay replay :: ReplayOpts -> IO () -replay opts = go =<< streamLog (replayLogFile opts) +replay opts = do + hSetBuffering stdin NoBuffering + withoutEcho $ go =<< streamLog (replayLogFile opts) where go [] = return () go (Right l:ls) = do case loggedMessage l of User (ActivityMessage a) -> do - realisticDelay (elapsedTime a) + _ <- realisticDelay (elapsedTime a) + `race` waitSpaceBar B.hPut stdout $ val $ seenData $ activity a hFlush stdout User (ControlMessage _) -> return () @@ -32,3 +37,10 @@ realisticDelay :: ElapsedTime -> IO () realisticDelay (ElapsedTime n) | n < 1 = return () | otherwise = delay $ ceiling $ n * 1000000 + +waitSpaceBar :: IO () +waitSpaceBar = do + c <- getChar + if c == ' ' + then return () + else waitSpaceBar |