--- a/gameServer/CoreTypes.hs Sun Oct 10 12:53:16 2010 -0400
+++ b/gameServer/CoreTypes.hs Sun Oct 10 21:32:18 2010 +0400
@@ -78,7 +78,6 @@
gameinprogress :: Bool,
playersIn :: !Int,
readyPlayers :: !Int,
- playersIDs :: IntSet.IntSet,
isRestrictedJoins :: Bool,
isRestrictedTeams :: Bool,
roundMsgs :: Seq B.ByteString,
@@ -88,8 +87,7 @@
}
instance Show RoomInfo where
- show ri = ", players ids: " ++ show (IntSet.size $ playersIDs ri)
- ++ ", players: " ++ show (playersIn ri)
+ show ri = ", players: " ++ show (playersIn ri)
++ ", ready: " ++ show (readyPlayers ri)
++ ", teams: " ++ show (teams ri)
@@ -104,7 +102,6 @@
False
0
0
- IntSet.empty
False
False
Data.Sequence.empty