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
@@ -6,7 +6,7 @@ import Dodge.Graph
 linksOnPath :: Room -> Bool
 linksOnPath r = all pointOnPath linkPoints
  where
-    linkPoints = map fst $ _rmLinks r
+    linkPoints = map fst $ _rmOutLinks r ++ _rmInLinks r
    pointOnPath p = elem p $ concatMap flat2 $ _rmPath r
    flat2 (x,y) = [x,y]