--- a/netserver/Miscutils.hs	Mon Oct 13 14:52:29 2008 +0000
+++ b/netserver/Miscutils.hs	Mon Oct 13 18:37:59 2008 +0000
@@ -46,8 +46,10 @@
 		roomProto :: Word16,
 		teams :: [TeamInfo],
 		gamemap :: String,
+		gameinprogress :: Bool,
 		params :: Map.Map String [String]
 	}
+createRoom = (RoomInfo "" "" 0 [] "+rnd+" False Map.empty)
 
 type ClientsTransform = [ClientInfo] -> [ClientInfo]
 type RoomsTransform = [RoomInfo] -> [RoomInfo]