--- a/gameServer/OfficialServer/DBInteraction.hs	Wed Mar 09 21:41:16 2011 +0300
+++ b/gameServer/OfficialServer/DBInteraction.hs	Wed Mar 09 22:11:29 2011 +0300
@@ -36,7 +36,8 @@
         ClearCache -> return ()
         SendStats {} -> return ()
 
---dbConnectionLoop :: forall b. (ServerInfo c) -> IO b
+dbConnectionLoop :: ServerInfo -> IO ()
+
 #if defined(OFFICIAL_SERVER)
 flushRequests :: ServerInfo -> IO ()
 flushRequests si = do
@@ -115,7 +116,6 @@
     threadDelay (3000000)
     pipeDbConnection updatedCache si newErrNum
 
-dbConnectionLoop :: ServerInfo -> IO ()
 dbConnectionLoop si =
         if (not . B.null $ dbHost si) then
             pipeDbConnection Map.empty si 0