Cleanup

2021-11-23 21:48:01 +00:00
parent b7d6eeaa84
commit 86f363c2f9
19 changed files with 93 additions and 122 deletions
@@ -71,7 +71,7 @@ runPastRoom i = do
            ,_rmPmnts = []
            }
        switchdoor = switchDoorRoom & rmTakeFrom ?~ i
-        n = length $ filter theedgetest $ map lnkPosDir $ _rmOutLinks cenroom
+        n = length $ filter theedgetest $ map lnkPosDir $ _rmLinks cenroom
        controom = treeFromPost [PassDown switchdoor,PassDown linkcor] (UseAll door)
        critrooms :: [SubCompTree Room]
        critrooms = treeFromPost [PassDown switchdoor] (PassDown critroom) :