--- a/gameServer/CoreTypes.hs Thu Feb 25 18:28:33 2010 +0000
+++ b/gameServer/CoreTypes.hs Thu Feb 25 18:34:30 2010 +0000
@@ -61,6 +61,11 @@
hedgehogs :: [HedgehogInfo]
}
+instance Show TeamInfo where
+ show ti = "owner: " ++ (teamowner ti)
+ ++ "name: " ++ (teamname ti)
+ ++ "color: " ++ (teamcolor ti)
+
data RoomInfo =
RoomInfo
{
@@ -87,6 +92,7 @@
++ ", players ids: " ++ show (IntSet.size $ playersIDs ri)
++ ", players: " ++ show (playersIn ri)
++ ", ready: " ++ show (readyPlayers ri)
+ ++ ", teams: " ++ show (teams ri)
instance Eq RoomInfo where
(==) = (==) `on` roomUID