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
@@ -44,7 +44,7 @@ blinkAcrossChallenge = do

 emptyCorridor :: Room
 emptyCorridor = corridor & rmPolys .~ []
-    & rmPath .~ []
+    & rmPath .~ mempty
    & rmPmnts .~ []
    & rmRandPSs .~ [psRandRanges (10,30) (30,60) (0,2*pi)]
    & rmName .~ "WalledCorridor"