diff options
Diffstat (limited to 'Replay.hs')
-rw-r--r-- | Replay.hs | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -21,11 +21,10 @@ replay opts = go Nothing =<< loadLog (replayLogFile opts) ms = s * 1000000 in delay (ceiling ms) - case loggedActivity l of - ActivityEntered {} -> return () - ActivitySeen a -> case activity a of - Rejected {} -> return () - Proto s -> do - B.hPut stdout (val (seenData s)) - hFlush stdout + case loggedMessage l of + User (ActivityMessage a) -> do + B.hPut stdout $ val $ seenData $ activity a + hFlush stdout + User (ControlMessage _) -> return () + Developer _ -> return () go (Just $ loggedTimestamp l) ls |