--- a/gameServer/hedgewars-server.hs	Tue May 04 21:30:25 2010 +0000
+++ b/gameServer/hedgewars-server.hs	Wed May 05 08:01:37 2010 +0000
@@ -2,8 +2,7 @@
 
 module Main where
 
-import Network.Socket
-import qualified Network
+import Network
 import Control.Concurrent.STM
 import Control.Concurrent.Chan
 #if defined(NEW_EXCEPTIONS)
@@ -15,9 +14,7 @@
 -----------------------------------
 import Opts
 import CoreTypes
-import OfficialServer.DBInteraction
 import ServerCore
-import Utils
 
 
 #if !defined(mingw32_HOST_OS)
@@ -27,7 +24,7 @@
 
 setupLoggers =
     updateGlobalLogger "Clients"
-        (setLevel INFO)
+        (setLevel DEBUG)
 
 main = withSocketsDo $ do
 #if !defined(mingw32_HOST_OS)
@@ -37,10 +34,10 @@
 
     setupLoggers
 
-    stats <- atomically $ newTMVar (StatisticsInfo 0 0)
+    stats' <- atomically $ newTMVar (StatisticsInfo 0 0)
     dbQueriesChan <- newChan
-    coreChan <- newChan
-    serverInfo' <- getOpts $ newServerInfo stats coreChan dbQueriesChan
+    coreChan' <- newChan
+    serverInfo' <- getOpts $ newServerInfo stats' coreChan' dbQueriesChan
     
 #if defined(OFFICIAL_SERVER)
     dbHost' <- askFromConsole "DB host: "