Cleanup

2022-06-11 14:37:05 +01:00
parent 9c9ec9c553
commit de71c61409
18 changed files with 107 additions and 134 deletions
@@ -54,8 +54,9 @@ runPastRoom i = do
        critroom = linkcor & rmPmnts .:~ plRRpt 0 randC1
        switchdoor = triggerDoorRoom i
        n = length $ filter (elem theedge . _rlType) (_rmLinks cenroom)
-        doorrooms = map (treePost . (switchdoor:)) $ [critroom]
-            : [ linkcor,corridor,corridor,useAll door]
+        doorrooms = map (treePost . (switchdoor:))
+            $ [critroom]
+            : [linkcor,corridor,corridor,cleatOnward door]
            : replicate (n-2) [linkcor]
    return $ Node cenroom $
        map (over root $ rmConnectsTo .~ S.member theedge) doorrooms