Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/OfficialServer/extdbinterface.hs
changeset 9450 2084b1b7839c
parent 9446 4fd5df03deb8
child 9868 53d1b92db6ce 
--- 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