--- 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,