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 build
authorunc0rr
Thu, 29 Aug 2013 10:06:19 +0400
changeset 9437 8d1e9a9dda8e
parent 9435 59eec19cb31a
child 9439 e0570f2e5f41
child 9440 8a75d5d73787
Fix build
gameServer/Actions.hs file | annotate | diff | comparison | revisions
gameServer/OfficialServer/extdbinterface.hs file | annotate | diff | comparison | revisions 
--- a/gameServer/Actions.hs	Wed Aug 28 23:44:27 2013 +0400
+++ b/gameServer/Actions.hs	Thu Aug 29 10:06:19 2013 +0400
@@ -659,12 +659,12 @@
     ri <- clientRoomA
     rnc <- gets roomsClients
 
-    allci <- io $ do
+    readyCheckersIds <- io $ do
         r <- room'sM rnc id ri
         saveReplay r
-        allClientsM rnc
+        allci <- allClientsM rnc
+        filterM (client'sM rnc isReadyChecker) allci
 
-    readyCheckersIds <- liftM (filter (client'sM isReadyChecker rnc)) allClientsS
     when (not $ null readyCheckersIds) $ do
         modify (\s -> s{clientIndex = Just $ head readyCheckersIds})
         processAction CheckRecord
--- a/gameServer/OfficialServer/extdbinterface.hs	Wed Aug 28 23:44:27 2013 +0400
+++ b/gameServer/OfficialServer/extdbinterface.hs	Thu Aug 29 10:06:19 2013 +0400
@@ -41,7 +41,7 @@
                 result <- fetchRow statement
                 finish statement
                 let response =
-                        if isJust result then let [pass, adm, contr] = fromJust $ result
+                        if isJust result then let [pass, adm, contr] = fromJust result in
                         (
                             clId,
                             clUid,
hedgewars