diff -r 596b1dcdc1df -r 3448dd03483f netserver/Miscutils.hs
--- a/netserver/Miscutils.hs	Mon Jul 21 09:45:40 2008 +0000
+++ b/netserver/Miscutils.hs	Mon Jul 21 15:54:12 2008 +0000
@@ -22,11 +22,18 @@
 instance Eq ClientInfo where
 	a1 == a2 = handle a1 == handle a2
 
+data TeamInfo =
+	TeamInfo
+	{
+		teamname :: String
+	}
+
 data RoomInfo =
 	RoomInfo
 	{
 		name :: String,
-		password :: String
+		password :: String,
+		teams :: [TeamInfo]
 	}
 
 type ClientsTransform = [ClientInfo] -> [ClientInfo]