Cleanup

2021-11-23 21:48:01 +00:00
parent b7d6eeaa84
commit 86f363c2f9
19 changed files with 93 additions and 122 deletions
@@ -7,7 +7,7 @@ import Dodge.RoomLink
 linksOnPath :: Room -> Bool
 linksOnPath r = all pointOnPath linkPoints
  where
-    linkPoints = map (fst . lnkPosDir) $ _rmOutLinks r ++ _rmInLinks r
+    linkPoints = map (fst . lnkPosDir) $ _rmLinks r
    pointOnPath p = elem p $ concatMap flat2 $ _rmPath r
    flat2 (x,y) = [x,y]