# HG changeset patch
# User koda
# Date 1285465290 -7200
# Node ID 7768ac820d5a91eb1b2bb63e0a09cb1e7db8fb51
# Parent  22e4d74240e5f5f0178e9e0fa98cf87daa52d545# Parent  124b4755914b388e94711d6aee567a175f768197
merge

diff -r 22e4d74240e5 -r 7768ac820d5a gameServer/CoreTypes.hs
--- a/gameServer/CoreTypes.hs	Sun Sep 26 03:41:08 2010 +0200
+++ b/gameServer/CoreTypes.hs	Sun Sep 26 03:41:30 2010 +0200
@@ -31,7 +31,7 @@
         roomID :: RoomIndex,
         pingsQueue :: !Word,
         isMaster :: Bool,
-        isReady :: Bool,
+        isReady :: !Bool,
         isAdministrator :: Bool,
         clientClan :: B.ByteString,
         teamsInGame :: Word
diff -r 22e4d74240e5 -r 7768ac820d5a gameServer/OfficialServer/extdbinterface.hs
--- a/gameServer/OfficialServer/extdbinterface.hs	Sun Sep 26 03:41:08 2010 +0200
+++ b/gameServer/OfficialServer/extdbinterface.hs	Sun Sep 26 03:41:30 2010 +0200
@@ -1,4 +1,4 @@
-{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE ScopedTypeVariables, OverloadedStrings #-}
 
 module Main where
 
@@ -26,7 +26,7 @@
     case q of
         CheckAccount clUid clNick _ -> do
                 statement <- prepare dbConn dbQueryAccount
-                execute statement [SqlString $ clNick]
+                execute statement [SqlByteString $ clNick]
                 passAndRole <- fetchRow statement
                 finish statement
                 let response = 
@@ -47,7 +47,7 @@
 
 
 dbConnectionLoop mySQLConnectionInfo =
-    Control.Exception.handle (\(_ :: IOException) -> return ()) $ handleSqlError $
+    Control.Exception.handle (\(e :: IOException) -> hPutStrLn stderr $ show e) $ handleSqlError $
         bracket
             (connectMySQL mySQLConnectionInfo)
             (disconnect)
diff -r 22e4d74240e5 -r 7768ac820d5a gameServer/RoomsAndClients.hs
--- a/gameServer/RoomsAndClients.hs	Sun Sep 26 03:41:08 2010 +0200
+++ b/gameServer/RoomsAndClients.hs	Sun Sep 26 03:41:30 2010 +0200
@@ -13,7 +13,6 @@
     lobbyId,
     moveClientToLobby,
     moveClientToRoom,
-    clientRoom,
     clientRoomM,
     clientExists,
     client,
diff -r 22e4d74240e5 -r 7768ac820d5a gameServer/Store.hs
--- a/gameServer/Store.hs	Sun Sep 26 03:41:08 2010 +0200
+++ b/gameServer/Store.hs	Sun Sep 26 03:41:30 2010 +0200
@@ -93,7 +93,7 @@
 modifyElem :: MStore e -> (e -> e) -> ElemIndex -> IO ()
 modifyElem (MStore ref) f (ElemIndex n) = do
     (_, _, arr) <- readIORef ref
-    IOA.readArray arr n >>= (IOA.writeArray arr n) . f
+    IOA.readArray arr n >>= IOA.writeArray arr n . f
 
 elemExists :: MStore e -> ElemIndex -> IO Bool
 elemExists (MStore ref) (ElemIndex n) = do