Continue to work on pathfinding

src/Dodge/Save.hs

@@ -13,10 +13,10 @@ module Dodge.Save (
 import Control.Monad
 import Data.Maybe
 import Dodge.WorldLoad
-import Dodge.Path.Translate
-import Data.Graph.Inductive (labEdges, labNodes)
-import Dodge.Zoning.Pathing
-import Data.Foldable
+--import Dodge.Path.Translate
+--import Data.Graph.Inductive (labEdges, labNodes)
+--import Dodge.Zoning.Pathing
+--import Data.Foldable
 import Dodge.Wall.Zone
 import Dodge.Concurrent
 import Control.Lens
@@ -51,14 +51,14 @@ readSaveSlot ss = do
         return $ \uv -> Just 
             $ uv & uvWorld . cWorld .~ cw
                     & uvWorld %~ initWallZoning
-                    & uvWorld . pnZoning .~ foldl' (flip zonePn) mempty 
-                        (labNodes $ path uv)
-                    & uvWorld . peZoning .~ foldl' (flip zonePe) mempty 
-                        (map fromEdgeTuple $ labEdges $ path uv)
+--                    & uvWorld . pnZoning .~ foldl' (flip zonePn) mempty 
+--                        (labNodes $ path uv)
+--                    & uvWorld . peZoning .~ foldl' (flip zonePe) mempty 
+--                        (map fromEdgeTuple $ labEdges $ path uv)
                     & uvScreenLayers .~ []
                     & postUniverseLoadSideEffect
-  where
-    path uv = uv ^. uvWorld . cWorld . pathGraph
+--  where
+--    path uv = uv ^. uvWorld . cWorld . pathGraph
 
 saveSlotPath :: SaveSlot -> String
 saveSlotPath (SaveSlotNum i) = "generated/saves/" ++ show i