Commit before attempt to remove geometry shaders from shadow extrusion

src/Dodge/Save.hs

@@ -8,6 +8,8 @@ module Dodge.Save (
     reloadLevelStart,
 ) where
 
+
+import Dodge.Path.Translate
 import Data.Graph.Inductive (labEdges, labNodes)
 import Dodge.Zoning.Pathing
 import Data.Foldable
@@ -53,11 +55,9 @@ readSaveSlot ss = do
                     & uvScreenLayers .~ []
         else putStrLn "loadSaveSlot failed to find saved file" >> return removescreenlayers
   where
-    path uv = uv ^. uvWorld . cWorld . lWorld . pathGraph
+    path uv = uv ^. uvWorld . cWorld . pathGraph
     removescreenlayers = Just . (uvScreenLayers .~ [])
 
-fromEdgeTuple :: (Int, Int, PathEdge) -> PathEdgeNodes
-fromEdgeTuple (a, b, pe) = PathEdgeNodes a b pe
 
 saveSlotPath :: SaveSlot -> String
 saveSlotPath (SaveSlotNum i) = "saveSlot/" ++ show i