--- a/gameServer/hedgewars-server.hs	Thu May 06 15:26:14 2010 +0000
+++ b/gameServer/hedgewars-server.hs	Thu May 06 17:39:08 2010 +0000
@@ -22,10 +22,12 @@
 #endif
 
 
+setupLoggers :: IO ()
 setupLoggers =
     updateGlobalLogger "Clients"
         (setLevel DEBUG)
 
+main :: IO ()
 main = withSocketsDo $ do
 #if !defined(mingw32_HOST_OS)
     installHandler sigPIPE Ignore Nothing;
@@ -38,7 +40,7 @@
     dbQueriesChan <- newChan
     coreChan' <- newChan
     serverInfo' <- getOpts $ newServerInfo stats' coreChan' dbQueriesChan
-    
+
 #if defined(OFFICIAL_SERVER)
     dbHost' <- askFromConsole "DB host: "
     dbLogin' <- askFromConsole "login: "