Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/HWProtoChecker.hs
changeset 9444 30748b1d9ec7
parent 9433 f0a8ac191839
child 10212 5fb3bb2de9d2 
--- 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