Commit before moving buffer swapping command

src/Dodge/Render/Walls.hs

@@ -7,9 +7,9 @@ import Control.Lens
 import Dodge.Base.Wall
 import Dodge.Data.World
 import Dodge.Wall.Draw
-import Dodge.Zoning.Base
-import Dodge.Zoning.Wall
-import Dodge.Zoning.World
+--import Dodge.Zoning.Base
+--import Dodge.Zoning.Wall
+--import Dodge.Zoning.World
 import Geometry
 import ShapePicture
 
@@ -25,8 +25,9 @@ wallsToDraw w =
                 <*> L.prefilter wlSeeThroughDraw (L.premap f L.list)
                 <*> L.premap getWallSPic L.mconcat
             )
-            (wlsFromIXs w $ zonesExtract (w ^. wlZoning) $ zoneOfSight wlZoneSize cam)
-    cam = w ^. cWorld . camPos
+            (w ^. cWorld . lWorld . walls)
+--            (wlsFromIXs w $ zonesExtract (w ^. wlZoning) $ zoneOfSight wlZoneSize cam)
+--    cam = w ^. cWorld . camPos
 
 --wallsToDraw
 --    :: World