Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix checker ready status mess
authorunc0rr
Thu, 29 Aug 2013 12:12:19 +0400
changeset 9444 30748b1d9ec7
parent 9442 fea1613ae91f
child 9446 4fd5df03deb8
Fix checker ready status mess
gameServer/Actions.hs file | annotate | diff | comparison | revisions
gameServer/HWProtoChecker.hs file | annotate | diff | comparison | revisions 
--- 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}
             ]
 
 
--- 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"]
hedgewars