gameServer/CoreTypes.hs
changeset 4957 3684faf5b3d1
parent 4955 84543ecae8c3
child 4959 09f4978b4fb0
--- 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