equal
deleted
inserted
replaced
742 ri <- clientRoomA |
742 ri <- clientRoomA |
743 rnc <- gets roomsClients |
743 rnc <- gets roomsClients |
744 |
744 |
745 blackList <- liftM (map (recordFileName . fromJust . checkInfo) . filter (isJust . checkInfo)) allClientsS |
745 blackList <- liftM (map (recordFileName . fromJust . checkInfo) . filter (isJust . checkInfo)) allClientsS |
746 |
746 |
747 readyCheckersIds <- io $ do |
|
748 allci <- allClientsM rnc |
|
749 filterM (client'sM rnc (isJust . checkInfo)) allci |
|
750 |
|
751 (cinfo, l) <- io $ loadReplay (fromIntegral p) blackList |
747 (cinfo, l) <- io $ loadReplay (fromIntegral p) blackList |
752 when (isJust cinfo) $ |
748 when (isJust cinfo) $ |
753 mapM_ processAction [ |
749 mapM_ processAction [ |
754 AnswerClients [c] ("REPLAY" : l) |
750 AnswerClients [c] ("REPLAY" : l) |
755 , ModifyClient $ \c -> c{checkInfo = cinfo, isReady = False} |
751 , ModifyClient $ \c -> c{checkInfo = cinfo, isReady = False} |