equal
deleted
inserted
replaced
682 |
682 |
683 |
683 |
684 processAction CheckRecord = do |
684 processAction CheckRecord = do |
685 p <- client's clientProto |
685 p <- client's clientProto |
686 c <- client's sendChan |
686 c <- client's sendChan |
687 (cinfo, l) <- io $ loadReplay (fromIntegral p) |
687 ri <- clientRoomA |
|
688 rnc <- gets roomsClients |
|
689 |
|
690 blackList <- liftM (map (recordFileName . fromJust . checkInfo) . filter (isJust . checkInfo)) allClientsS |
|
691 |
|
692 readyCheckersIds <- io $ do |
|
693 allci <- allClientsM rnc |
|
694 filterM (client'sM rnc (isJust . checkInfo)) allci |
|
695 |
|
696 (cinfo, l) <- io $ loadReplay (fromIntegral p) blackList |
688 when (not . null $ l) $ |
697 when (not . null $ l) $ |
689 mapM_ processAction [ |
698 mapM_ processAction [ |
690 AnswerClients [c] ("REPLAY" : l) |
699 AnswerClients [c] ("REPLAY" : l) |
691 , ModifyClient $ \c -> c{checkInfo = cinfo, isReady = False} |
700 , ModifyClient $ \c -> c{checkInfo = cinfo, isReady = False} |
692 ] |
701 ] |