92         gameInfo :: Maybe GameInfo,

    92         gameInfo :: Maybe GameInfo,

    93         playersIn :: !Int,

    93         playersIn :: !Int,

    94         readyPlayers :: !Int,

    94         readyPlayers :: !Int,

    95         isRestrictedJoins :: Bool,

    95         isRestrictedJoins :: Bool,

    96         isRestrictedTeams :: Bool,

    96         isRestrictedTeams :: Bool,

    97         mapParams :: Map.Map B.ByteString B.ByteString,

    98         mapParams :: Map.Map B.ByteString B.ByteString,

    98         params :: Map.Map B.ByteString [B.ByteString]

    99         params :: Map.Map B.ByteString [B.ByteString]

    99     }

   100     }

   100 

   101 

   101 newRoom :: RoomInfo

   102 newRoom :: RoomInfo

   109         Nothing

   110         Nothing

   110         0

   111         0

   111         0

   112         0

   112         False

   113         False

   113         False

   114         False

   114         (

   116         (

   115             Map.fromList $ Prelude.zipWith (,)

   117             Map.fromList $ Prelude.zipWith (,)

   116                 ["MAP", "MAPGEN", "MAZE_SIZE", "SEED", "TEMPLATE"]

   118                 ["MAP", "MAPGEN", "MAZE_SIZE", "SEED", "TEMPLATE"]

   117                 ["+rnd+", "0", "0", "seed", "0"]

   119                 ["+rnd+", "0", "0", "seed", "0"]

   118         )

   120         )