Inline functions in Dodge.Zone

2022-07-01 11:19:29 +01:00
parent 870225b6b6
commit e5f6afb577
8 changed files with 49 additions and 406 deletions
@@ -51,7 +51,7 @@ generateLevelFromRoomList gr' w = initWallZoning
        & peZoning   %~ (\zn -> foldl' (flip $ updateZoning (:)) (zn & znObjects .~ mempty)
            (labEdges (_pgGraph path)))
  where
-    path = pairsToGraph'' pairPath
+    path = pairsToGraph pairPath
    pairPath = foldMap _rmPath rs
    rs = map doRoomShift $ IM.elems rs'
    rs'= mapM shuffleRoomPos gr' & evalState $ _randGen w