diff -r 84543ecae8c3 -r 3684faf5b3d1 gameServer/CoreTypes.hs --- a/gameServer/CoreTypes.hs Wed Feb 23 18:34:07 2011 +0300 +++ b/gameServer/CoreTypes.hs Wed Feb 23 18:38:11 2011 +0300 @@ -136,7 +136,6 @@ dbPassword :: B.ByteString, lastLogins :: [(B.ByteString, (UTCTime, B.ByteString))], restartPending :: Bool, - stats :: TMVar StatisticsInfo, coreChan :: Chan CoreMessage, dbQueries :: Chan DBQuery } @@ -144,7 +143,7 @@ instance Show ServerInfo where show _ = "Server Info" -newServerInfo :: TMVar StatisticsInfo -> Chan CoreMessage -> Chan DBQuery -> ServerInfo +newServerInfo :: Chan CoreMessage -> Chan DBQuery -> ServerInfo newServerInfo = ServerInfo True