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
@@ -123,5 +123,5 @@ lasTunnelRunPast y = do
    r2 <- takeOne [door,corridor]
    return $ Node (PassDown r)
        [ singleUseAll r1
-        , return (UseLabel 0 $ r2 & rmConnectsTo .~ S.singleton InLink)
+        , return (UseLabel 0 $ r2 & rmConnectsTo .~ S.member InLink)
        ]