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