Add PathEdge data to pathfinding graph

2022-07-01 23:17:41 +01:00
parent f6084f37ed
commit 66fe1abc6f
4 changed files with 36 additions and 16 deletions
@@ -45,7 +45,7 @@ generateLevelFromRoomList gr' w = initWallZoning
        , _pathGraphP   = pairPath
        }
  where
-    path = pairsToGraph dist pairPath
+    path = pairsToGraph pairPath
    pairPath = foldMap _rmPath rs
    rs = map doRoomShift $ IM.elems rs'
    rs'= mapM shuffleRoomPos gr' & evalState $ _randGen w