equal
deleted
inserted
replaced
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) $ do |
669 modify (\s -> s{clientIndex = Just $ head readyCheckersIds}) |
669 oldci <- gets clientIndex |
670 processAction CheckRecord |
670 withStateT (\s -> s{clientIndex = Just $ head readyCheckersIds}) |
|
671 $ processAction CheckRecord |
|
672 modify (\s -> s{clientIndex = oldci}) |
671 where |
673 where |
672 isReadyChecker cl = isChecker cl && isReady cl |
674 isReadyChecker cl = isChecker cl && isReady cl |
673 |
675 |
674 |
676 |
675 processAction CheckRecord = do |
677 processAction CheckRecord = do |