Add quicksave

src/Dodge/LevelGen/Pathing.hs

@@ -19,10 +19,10 @@ pairsToGraph f pairs =
     in undir $ run_ Data.Graph.Inductive.empty $ insMapNodesM nodes' >> insMapEdgesM pairs'
 
 removePathsCrossing :: Point2 -> Point2 -> World -> World
-removePathsCrossing a b w = set pathGraph newGraph $ set pathGraph' pg'
+removePathsCrossing a b w = set pathGraph newGraph $ set pathGraphP pg'
     $ set pathPoints (foldr insertPoint IM.empty (labNodes newGraph))
     w
   where 
-    pg' = filter (isNothing . uncurry (intersectSegSeg a b)) $ _pathGraph' w
+    pg' = filter (isNothing . uncurry (intersectSegSeg a b)) $ _pathGraphP w
     insertPoint  pp@(_,V2 x y) = insertInZoneWith (floorHun x) (floorHun y) (++) [pp]
     newGraph = pairsToGraph dist pg'