43 	{

    43 	{

    44 		name :: String,

    44 		name :: String,

    45 		password :: String,

    45 		password :: String,

    46 		roomProto :: Word16,

    46 		roomProto :: Word16,

    47 		teams :: [TeamInfo],

    47 		teams :: [TeamInfo],

    48 		params :: Map.Map String [String]

    49 		params :: Map.Map String [String]

    49 	}

    50 	}

    50 

    51 

    51 type ClientsTransform = [ClientInfo] -> [ClientInfo]

    52 type ClientsTransform = [ClientInfo] -> [ClientInfo]

    52 type RoomsTransform = [RoomInfo] -> [RoomInfo]

    53 type RoomsTransform = [RoomInfo] -> [RoomInfo]