equal
deleted
inserted
replaced
715 readyCheckersIds <- io $ do |
715 readyCheckersIds <- io $ do |
716 allci <- allClientsM rnc |
716 allci <- allClientsM rnc |
717 filterM (client'sM rnc (isJust . checkInfo)) allci |
717 filterM (client'sM rnc (isJust . checkInfo)) allci |
718 |
718 |
719 (cinfo, l) <- io $ loadReplay (fromIntegral p) blackList |
719 (cinfo, l) <- io $ loadReplay (fromIntegral p) blackList |
720 when (not . null $ l) $ |
720 when (isJust cinfo) $ |
721 mapM_ processAction [ |
721 mapM_ processAction [ |
722 AnswerClients [c] ("REPLAY" : l) |
722 AnswerClients [c] ("REPLAY" : l) |
723 , ModifyClient $ \c -> c{checkInfo = cinfo, isReady = False} |
723 , ModifyClient $ \c -> c{checkInfo = cinfo, isReady = False} |
724 ] |
724 ] |
725 |
725 |