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
@@ -43,7 +43,7 @@ twinSlowDoorRoom w h x = defaultRoom
        [ (V2 w (h/2) , negate $ pi/2)
        , (V2 (-w) (h/2) , pi/2) ]
        ++ [uncurry inLink (V2 0 (-h), pi) ]
-    , _rmPath   = []
+    , _rmPath   = mempty
    , _rmPmnts     = 
        [ pContID (PS (V2 0 (h-5)) pi) ( PutButton $ makeButton col id)
            $ \btid -> jsps0J (PutSlideDr (thedoor btid) thewall 1 (V2 x 1) (V2 x h))