# HG changeset patch
# User unc0rr
# Date 1378234106 -14400
# Node ID 2084b1b7839c486da4ca0cb11496c35ab89479a9
# Parent  04e0acfa7c2ca557ccdbb00cb2a0550b64f6506a
Fix official server build

diff -r 04e0acfa7c2c -r 2084b1b7839c gameServer/OfficialServer/DBInteraction.hs
--- a/gameServer/OfficialServer/DBInteraction.hs	Tue Sep 03 22:35:57 2013 +0400
+++ b/gameServer/OfficialServer/DBInteraction.hs	Tue Sep 03 22:48:26 2013 +0400
@@ -84,6 +84,7 @@
             (clId', clUid', accountInfo) <- SIO.hGetLine hOut >>= (maybeException . maybeRead)
 
             writeChan cChan $ ClientAccountInfo clId' clUid' accountInfo
+            return (accountsCache, req)
 
         ClearCache -> return (Map.empty, req)
         StoreAchievements {} -> (
diff -r 04e0acfa7c2c -r 2084b1b7839c gameServer/OfficialServer/extdbinterface.hs
--- a/gameServer/OfficialServer/extdbinterface.hs	Tue Sep 03 22:35:57 2013 +0400
+++ b/gameServer/OfficialServer/extdbinterface.hs	Tue Sep 03 22:48:26 2013 +0400
@@ -63,7 +63,7 @@
                 execute statement [SqlByteString fileId]
                 result <- fetchRow statement
                 finish statement
-                let fn = if (isJust result) then fromJust . fromSql . head $ result else ""
+                let fn = if (isJust result) then fromJust . fromSql . head . fromJust $ result else ""
                 print (clId, clUid, ReplayName fn)
                 hFlush stdout