equal
deleted
inserted
replaced
673 saveReplay r |
673 saveReplay r |
674 |
674 |
675 |
675 |
676 processAction CheckRecord = do |
676 processAction CheckRecord = do |
677 p <- client's clientProto |
677 p <- client's clientProto |
678 c <- client's clChan |
678 c <- client's sendChan |
679 l <- loadReplay p |
679 l <- io $ loadReplay (fromIntegral p) |
680 when (not $ null l) $ |
680 when (not $ null l) $ |
681 processAction $ AnswerClients [c] ("REPLAY" : l) |
681 processAction $ AnswerClients [c] ("REPLAY" : l) |
682 |
682 |
683 |
683 |
684 #else |
684 #else |