56 		gameinprogress :: Bool,

    56 		gameinprogress :: Bool,

    57 		playersIn :: Int,

    57 		playersIn :: Int,

    58 		readyPlayers :: Int,

    58 		readyPlayers :: Int,

    59 		isRestrictedJoins :: Bool,

    59 		isRestrictedJoins :: Bool,

    60 		isRestrictedTeams :: Bool,

    60 		isRestrictedTeams :: Bool,

    61 		params :: Map.Map String [String]

    62 		params :: Map.Map String [String]

    62 	}

    63 	}

    63 createRoom = (

    64 createRoom = (

    64 	RoomInfo

    65 	RoomInfo

    65 		""

    66 		""

    70 		False

    71 		False

    71 		1

    72 		1

    72 		0

    73 		0

    73 		False

    74 		False

    74 		False

    75 		False

    75 		Map.empty

    77 		Map.empty

    76 	)

    78 	)

    77 

    79 

    78 data ServerInfo =

    80 data ServerInfo =

    79 	ServerInfo

    81 	ServerInfo