Transition to new room datatypes, first separate out/inlinks

src/Dodge/Room/Path.hs

@@ -18,7 +18,7 @@ import qualified Control.Foldl as L
 
 createPathGrid :: Room -> Room
 createPathGrid rm = rm
-    { _rmPath = linksAndPath (_rmLinks rm) filterGrid }
+    { _rmPath = linksAndPath (_rmOutLinks rm ++ _rmInLinks rm) filterGrid }
   where
     filterGrid = filter (\p -> pairInPolys (_rmPolys rm) p && testCrossWalls outerWalls p) grid
     grid = fromMaybe [] $ shiftedGrid <$> minx <*> maxx <*> miny <*> maxy