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 official server build
authorunc0rr
Tue, 03 Sep 2013 22:48:26 +0400
changeset 9450 2084b1b7839c
parent 9448 04e0acfa7c2c
child 9452 a669869ee44c
Fix official server build
gameServer/OfficialServer/DBInteraction.hs file | annotate | diff | comparison | revisions
gameServer/OfficialServer/extdbinterface.hs file | annotate | diff | comparison | revisions 
--- 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 {} -> (
--- 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
hedgewars