Cleanup

2022-06-10 20:53:01 +01:00
parent 1b7463f287
commit 6966e76206
14 changed files with 54 additions and 75 deletions
@@ -60,10 +60,10 @@ runPastRoom i = do
            }
        switchdoor = triggerDoorRoom i 
        n = length $ filter theedgetest $ map lnkPosDir $ _rmLinks cenroom
-        controom = treeFromPost [ switchdoor, linkcor] (useAll door)
+        controom = treeFromPost [ switchdoor, linkcor,corridor,corridor] (useAll door)
        critrooms :: [Tree Room]
-        critrooms = treeFromPost [ switchdoor] ( critroom) : 
-            replicate (n-2) (treeFromPost [ switchdoor] ( linkcor))
-    return $ Node ( cenroom) $ 
+        critrooms = treeFromPost [ switchdoor] critroom 
+            : replicate (n-2) (treeFromPost [ switchdoor] linkcor)
+    return $ Node cenroom $ 
        map (over root $ rmConnectsTo .~ S.member (OnEdge theedge)) (controom : critrooms) 
-            ++ [return $  aswitchroom]
+            ++ [return aswitchroom]