diff -r 90d1fb9fc2e1 -r 408301a9d2d6 gameServer/OfficialServer/DBInteraction.hs
--- a/gameServer/OfficialServer/DBInteraction.hs	Tue Mar 08 21:27:44 2011 +0300
+++ b/gameServer/OfficialServer/DBInteraction.hs	Tue Mar 08 21:45:00 2011 +0300
@@ -89,12 +89,11 @@
         maybeException (Just a) = return a
         maybeException Nothing = ioError (userError "Can't read")
 
-pipeDbConnection :: forall a b.
-        (Num a, Ord a) =>
+pipeDbConnection ::
         Map.Map ByteString (UTCTime, AccountInfo)
         -> ServerInfo
-        -> a
-        -> IO b
+        -> Int
+        -> IO ()
 
 pipeDbConnection accountsCache si errNum = do
     (updatedCache, newErrNum) <-
@@ -116,7 +115,7 @@
     threadDelay (3000000)
     pipeDbConnection updatedCache si newErrNum
 
-dbConnectionLoop :: forall b. ServerInfo -> IO b
+dbConnectionLoop :: ServerInfo -> IO ()
 dbConnectionLoop si =
         if (not . B.null $ dbHost si) then
             pipeDbConnection Map.empty si 0