diff -r 84543ecae8c3 -r 3684faf5b3d1 gameServer/hedgewars-server.hs --- 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: "