# HG changeset patch
# User unc0rr
# Date 1377763939 -14400
# Node ID 30748b1d9ec77c03b4e7a8d72a617e7473b748cc
# Parent  fea1613ae91f0f5e5800fb0dcb86f260b0f166db
Fix checker ready status mess

diff -r fea1613ae91f -r 30748b1d9ec7 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Thu Aug 29 12:02:16 2013 +0400
+++ b/gameServer/Actions.hs	Thu Aug 29 12:12:19 2013 +0400
@@ -681,7 +681,7 @@
     when (not . null $ l) $
         mapM_ processAction [
             AnswerClients [c] ("REPLAY" : l)
-            , ModifyClient $ \c -> c{checkInfo = cinfo}
+            , ModifyClient $ \c -> c{checkInfo = cinfo, isReady = False}
             ]
 
 
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"]