Transition to new room datatypes, first separate out/inlinks

2021-11-23 17:27:33 +00:00
parent 67b0d694af
commit 0f4040807a
19 changed files with 119 additions and 87 deletions
@@ -70,7 +70,7 @@ runPastRoom i = do
            ,_rmPmnts = []
            }
        switchdoor = switchDoorRoom & rmTakeFrom ?~ i
-        n = length $ filter theedgetest $ _rmLinks cenroom
+        n = length $ filter theedgetest $ _rmOutLinks cenroom
        controom = treeFromPost [PassDown switchdoor,PassDown linkcor] (UseAll door)
        critrooms :: [SubCompTree Room]
        critrooms = treeFromPost [PassDown switchdoor] (PassDown critroom) :