--- a/gameServer/ServerCore.hs	Thu May 12 23:29:31 2011 +0200
+++ b/gameServer/ServerCore.hs	Sun May 15 18:10:01 2011 +0400
@@ -10,6 +10,7 @@
 import qualified Data.ByteString.Char8 as B
 import Control.DeepSeq
 import Data.Unique
+import Data.Maybe
 --------------------------------------
 import CoreTypes
 import NetRoutines
@@ -65,13 +66,13 @@
                     PingAll : [StatsAction | even tick]
 
 
-startServer :: ServerInfo -> Socket -> IO ()
-startServer si serverSocket = do
-    putStrLn $ "Listening on port " ++ show (listenPort si)
+startServer :: ServerInfo -> IO ()
+startServer si = do
+    noticeM "Core" $ "Listening on port " ++ show (listenPort si)
 
     _ <- forkIO $
         acceptLoop
-            serverSocket
+            (fromJust $ serverSocket si)
             (coreChan si)
 
     return ()