equal
deleted
inserted
replaced
679 c <- client's sendChan |
679 c <- client's sendChan |
680 (cinfo, l) <- io $ loadReplay (fromIntegral p) |
680 (cinfo, l) <- io $ loadReplay (fromIntegral p) |
681 when (not . null $ l) $ |
681 when (not . null $ l) $ |
682 mapM_ processAction [ |
682 mapM_ processAction [ |
683 AnswerClients [c] ("REPLAY" : l) |
683 AnswerClients [c] ("REPLAY" : l) |
684 , ModifyClient $ \c -> c{checkInfo = cinfo} |
684 , ModifyClient $ \c -> c{checkInfo = cinfo, isReady = False} |
685 ] |
685 ] |
686 |
686 |
687 |
687 |
688 processAction (CheckFailed msg) = do |
688 processAction (CheckFailed msg) = do |
689 Just (CheckInfo fileName _) <- client's checkInfo |
689 Just (CheckInfo fileName _) <- client's checkInfo |