diff -r fea1613ae91f -r 30748b1d9ec7 gameServer/HWProtoChecker.hs --- a/gameServer/HWProtoChecker.hs Thu Aug 29 12:02:16 2013 +0400 +++ b/gameServer/HWProtoChecker.hs Thu Aug 29 12:12:19 2013 +0400 @@ -18,7 +18,7 @@ if not isChecking then return [] else - return [CheckFailed msg, ModifyClient $ \c -> c{isReady = False, checkInfo = Nothing}] + return [CheckFailed msg, ModifyClient $ \c -> c{checkInfo = Nothing}] handleCmd_checker ("CHECKED" : "OK" : info) = do @@ -26,6 +26,6 @@ if not isChecking then return [] else - return [CheckSuccess info, ModifyClient $ \c -> c{isReady = False, checkInfo = Nothing}] + return [CheckSuccess info, ModifyClient $ \c -> c{checkInfo = Nothing}] handleCmd_checker _ = return [ProtocolError "Unknown command"]