Add explicit door position field

2022-03-09 22:14:34 +00:00
parent 4a1ca905f7
commit 027b4b7d8b
14 changed files with 53 additions and 37 deletions
@@ -54,7 +54,7 @@ longRoomRunPast = do
        (Node (PassDown r)
            [ singleUseAll door
            --, return (UseLabel 0 $ door & rmConnectsTo .~ S.singleton InLink)
-            , treeFromPost [PassDown $ corridor & rmConnectsTo .~ S.singleton InLink, PassDown corridor] 
+            , treeFromPost [PassDown $ corridor & rmConnectsTo .~ S.member InLink, PassDown corridor] 
                (UseLabel 0 door)
            ]
        )