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