Move zoning up world spheres

src/Dodge/Default/World.hs

@@ -41,6 +41,12 @@ defaultWorld =
         , _rbOptions = NoRightButtonOptions
         , _hud = defaultHUD
         , _worldEventFlags = mempty
+        , _crZoning = mempty
+        , _clZoning = mempty
+        , _wlZoning = mempty
+        , _pnZoning = mempty
+        , _peZoning = mempty
+        , _gsZoning = mempty --Zoning IM.empty clZoneSize (zonePos _guPos)
         }
 
 defaultCWGen :: CWGen
@@ -77,6 +83,7 @@ defaultCWorld =
         , _pastWorlds = []
         , _timeFlow = NormalTimeFlow
         , _seenWalls = mempty
+        , _floorTiles = mempty
         }
 
 defaultLWorld :: LWorld
@@ -85,12 +92,9 @@ defaultLWorld =
         { _magnets = IM.empty
         , _modifications = IM.empty
         , _creatures = IM.empty
-        , _crZoning = mempty --Zoning IM.empty crZoneSize zoneOfCreature
         , _creatureGroups = IM.empty
         , _clouds = mempty
-        , _clZoning = mempty
         , _gusts = IM.empty
-        , _gsZoning = mempty --Zoning IM.empty clZoneSize (zonePos _guPos)
         , _itemLocations = IM.empty
         , _props = IM.empty
         , _projectiles = IM.empty
@@ -119,9 +123,7 @@ defaultLWorld =
         , _doors = IM.empty
         , _coordinates = IM.empty
         , _triggers = IM.empty
-        , _wlZoning = IM.empty --Zoning IM.empty wlZoneSize zoneOfWall
         , _floorItems = IM.empty
-        , _floorTiles = []
         , _worldEvents = []
         , _delayedEvents = []
         , _pressPlates = IM.empty
@@ -129,8 +131,6 @@ defaultLWorld =
         , _corpses = IM.empty
         , _decorations = IM.empty
         , _pathGraph = Data.Graph.Inductive.Graph.empty
-        , _pnZoning = mempty
-        , _peZoning = mempty
         , _lightSources = IM.empty
         , _tempLightSources = []
         , _seenLocations =