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
@@ -68,5 +68,5 @@ runPastRoom i = do
        critrooms = treeFromPost [PassDown switchdoor] (PassDown critroom) : 
            replicate (n-2) (treeFromPost [PassDown switchdoor] (PassDown linkcor))
    return $ Node (PassDown cenroom) $ 
-        map (applyToCompRoot $ rmConnectsTo .~ S.singleton (OnEdge theedge)) (controom : critrooms) 
+        map (applyToCompRoot $ rmConnectsTo .~ S.member (OnEdge theedge)) (controom : critrooms) 
            ++ [return $ PassDown aswitchroom]