--- 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