# HG changeset patch
# User unc0rr
# Date 1267597741 0
# Node ID 24d6dc579b47bf35ddd34cee089d1255526a12f0
# Parent  2f4320a1b31f13c9bf168777472569aac7eb04ff
Fix build

diff -r 2f4320a1b31f -r 24d6dc579b47 gameServer/OfficialServer/extdbinterface.hs
--- a/gameServer/OfficialServer/extdbinterface.hs	Wed Mar 03 06:28:04 2010 +0000
+++ b/gameServer/OfficialServer/extdbinterface.hs	Wed Mar 03 06:29:01 2010 +0000
@@ -30,14 +30,14 @@
                 passAndRole <- fetchRow statement
                 finish statement
                 let response =
-                    if isJust passAndRole then
+                   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