netserver/Miscutils.hs
changeset 1748 27dd2967fc65
parent 1742 cf97d1eecb12
child 1755 cfb442f6a149
--- a/netserver/Miscutils.hs	Sun Jan 25 13:48:41 2009 +0000
+++ b/netserver/Miscutils.hs	Sun Jan 25 13:57:48 2009 +0000
@@ -65,8 +65,10 @@
 		isRestrictedTeams :: Bool,
 		roundMsgs :: Seq String,
 		leftTeams :: [String],
+		teamsAtStart :: [TeamInfo],
 		params :: Map.Map String [String]
 	}
+
 createRoom = (
 	RoomInfo
 		""
@@ -81,6 +83,7 @@
 		False
 		Data.Sequence.empty
 		[]
+		[]
 		Map.empty
 	)
 
@@ -93,6 +96,7 @@
 		loginsNumber :: Int,
 		lastHourUsers :: [UTCTime]
 	}
+
 newServerInfo = (
 	ServerInfo
 		True