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
@@ -148,5 +148,5 @@ slowDoorRoomRunPast = do
    r <- slowDoorRoom
    return $ treeFromTrunk [PassDown door] $ Node (PassDown r)
        [ singleUseAll door
-        , return (UseLabel 0 $ door & rmConnectsTo .~ S.singleton InLink)
+        , return (UseLabel 0 $ door & rmConnectsTo .~ S.member InLink)
        ]