gameServer/hedgewars-server.hs
changeset 4957 3684faf5b3d1
parent 4932 f11d80bac7ed
child 4960 3b54b1c9b768
--- a/gameServer/hedgewars-server.hs	Wed Feb 23 18:34:07 2011 +0300
+++ b/gameServer/hedgewars-server.hs	Wed Feb 23 18:38:11 2011 +0300
@@ -4,7 +4,6 @@
 
 import Network.Socket
 import Network.BSD
-import Control.Concurrent.STM
 import Control.Concurrent.Chan
 import qualified Control.Exception as Exception
 import System.Log.Logger
@@ -36,10 +35,9 @@
 
     setupLoggers
 
-    stats' <- atomically $ newTMVar (StatisticsInfo 0 0)
     dbQueriesChan <- newChan
     coreChan' <- newChan
-    serverInfo' <- getOpts $ newServerInfo stats' coreChan' dbQueriesChan
+    serverInfo' <- getOpts $ newServerInfo coreChan' dbQueriesChan
 
 #if defined(OFFICIAL_SERVER)
     dbHost' <- askFromConsole "DB host: "