Add quicksave

2021-09-13 00:17:45 +01:00
parent 064d43f903
commit 49274064a0
11 changed files with 28 additions and 18 deletions
@@ -50,7 +50,7 @@ generateLevelFromRoomList gr w
        , _floorTiles = floorsFromRooms rs
        , _gameRooms  = gameRoomsFromRooms rs
        , _pathGraph = path
-        , _pathGraph' = pairPath
+        , _pathGraphP = pairPath
        }
  where
    path = pairsToGraph dist pairPath
@@ -87,7 +87,7 @@ generateFromTree :: State StdGen (Tree Room) -> World -> World
 generateFromTree t w = updateWallZoning $ placeSpots plmnts 
   $ w  {_walls         = wallsFromTree tr
        ,_pathGraph     = path
-        ,_pathGraph'    = pairGraph
+        ,_pathGraphP    = pairGraph
        ,_pathPoints    = foldl' (flip insertPoint) IM.empty (labNodes path) 
        }
  where