# HG changeset patch
# User unc0rr
# Date 1377756379 -14400
# Node ID 8d1e9a9dda8e7899600edcf22582a8078e00be41
# Parent  59eec19cb31a88df6cee8b8c6b88fd458aa247f2
Fix build

diff -r 59eec19cb31a -r 8d1e9a9dda8e gameServer/Actions.hs
--- 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
diff -r 59eec19cb31a -r 8d1e9a9dda8e gameServer/OfficialServer/extdbinterface.hs
--- 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,