equal
deleted
inserted
replaced
663 r <- room'sM rnc id ri |
663 r <- room'sM rnc id ri |
664 saveReplay r |
664 saveReplay r |
665 allci <- allClientsM rnc |
665 allci <- allClientsM rnc |
666 filterM (client'sM rnc isReadyChecker) allci |
666 filterM (client'sM rnc isReadyChecker) allci |
667 |
667 |
668 when (not $ null readyCheckersIds) $ do |
668 when (not $ null readyCheckersIds) |
669 modify (\s -> s{clientIndex = Just $ head readyCheckersIds}) |
669 $ withStateT (\s -> s{clientIndex = Just $ head readyCheckersIds}) |
670 processAction CheckRecord |
670 $ processAction CheckRecord |
671 where |
671 where |
672 isReadyChecker cl = isChecker cl && isReady cl |
672 isReadyChecker cl = isChecker cl && isReady cl |
673 |
673 |
674 |
674 |
675 processAction CheckRecord = do |
675 processAction CheckRecord = do |