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.
Unbreak server
authorunc0rr
Thu, 29 Aug 2013 11:48:02 +0400
changeset 9440 8a75d5d73787
parent 9437 8d1e9a9dda8e
child 9442 fea1613ae91f
Unbreak server
gameServer/Actions.hs file | annotate | diff | comparison | revisions 
--- a/gameServer/Actions.hs	Thu Aug 29 10:06:19 2013 +0400
+++ b/gameServer/Actions.hs	Thu Aug 29 11:48:02 2013 +0400
@@ -665,9 +665,9 @@
         allci <- allClientsM rnc
         filterM (client'sM rnc isReadyChecker) allci
 
-    when (not $ null readyCheckersIds) $ do
-        modify (\s -> s{clientIndex = Just $ head readyCheckersIds})
-        processAction CheckRecord
+    when (not $ null readyCheckersIds)
+        $ withStateT (\s -> s{clientIndex = Just $ head readyCheckersIds})
+            $ processAction CheckRecord
     where
         isReadyChecker cl = isChecker cl && isReady cl
hedgewars