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 2919 70244c730ea0
parent 2918 24d6dc579b47
child 3901 124b4755914b 
--- a/gameServer/OfficialServer/extdbinterface.hs	Wed Mar 03 06:29:01 2010 +0000
+++ b/gameServer/OfficialServer/extdbinterface.hs	Wed Mar 03 06:30:51 2010 +0000
@@ -29,15 +29,15 @@
                 execute statement [SqlString $ clNick]
                 passAndRole <- fetchRow statement
                 finish statement
-                let response =
-                   if isJust passAndRole then
+                let response = 
+                        if isJust passAndRole then
                         (
                             clUid,
                             HasAccount
                                 (fromSql $ head $ fromJust $ passAndRole)
                                 ((fromSql $ last $ fromJust $ passAndRole) == (Just (3 :: Int)))
                         )
-                   else
+                        else
                         (clUid, Guest)
                 putStrLn (show response)
                 hFlush stdout
hedgewars