Continue to refactor zoning to be more stream-based

2022-06-28 03:21:55 +01:00
parent f6d96ec92c
commit e06527091e
34 changed files with 214 additions and 252 deletions
@@ -108,7 +108,7 @@ drawInspectWalls w = foldMap (drawInspectWall w)
 drawInspectWall :: World -> Wall -> Picture
 drawInspectWall _ wl = setLayer DebugLayer $ 
        color rose (thickLine 3 [a,b])
-    <> foldMap (drawZone zoneSize)
+    <> foldMap (drawZone wallZoneSize)
        (runIdentity $ S.toList_ $ zoneOfWall wl)
  where
    (a,b) = _wlLine wl