Refactor wall zoning, remove streaming

src/Dodge/Render/ShapePicture.hs

@@ -1,6 +1,7 @@
 module Dodge.Render.ShapePicture
     ( worldSPic
     ) where
+import Dodge.Zoning.Wall
 import Dodge.Button.Draw
 import Dodge.LightSource.Draw
 import Dodge.Targeting.Draw
@@ -246,7 +247,7 @@ drawFarWallDetect w = setLayer DebugLayer
     . color yellow 
     . foldMap (\q -> line 
         [ p
-        , fst $ collidePoint p q $ S.filter wlIsOpaque $ wlsNearSeg p q w
+        , fst $ collidePoint p q $ filter wlIsOpaque $ wlsNearSeg p q w
         ]   )
     $ runIdentity $ S.toList_ $ streamViewpoints p w
   where
@@ -282,7 +283,7 @@ innerSquare :: [Point2]
 innerSquare = [V2 1 1, V2 (-1) 1, V2 (-1) (-1), V2 1 (-1)]
 
 drawWallSearchRays :: World -> Picture
-drawWallSearchRays w = runIdentity $ S.foldMap_ f $ S.map fst $ allVisibleWalls w
+drawWallSearchRays w = foldMap f $ map fst $ allVisibleWalls w
   where
     f p = setLayer DebugLayer $ color yellow $ uncurryV translate p (circle 5)
         <> line [_cameraViewFrom w, p]