--- a/gameServer/hedgewars-server.hs Mon Feb 23 20:15:02 2009 +0000
+++ b/gameServer/hedgewars-server.hs Mon Feb 23 20:25:07 2009 +0000
@@ -48,9 +48,9 @@
setupLoggers
stats <- atomically $ newTMVar (StatisticsInfo 0 0)
- --dbQueriesChan <- atomically newTChan
+ dbQueriesChan <- newChan
coreChan <- newChan
- serverInfo <- getOpts $ newServerInfo stats -- dbQueriesChan
+ serverInfo <- getOpts $ newServerInfo stats dbQueriesChan
bracket
(Network.listenOn $ Network.PortNumber $ listenPort serverInfo)