Move saves to generated folder

src/Dodge/LoadSeed.hs

@@ -5,7 +5,7 @@ import System.Directory
 import Text.Read
 
 loadSeed :: IO (Maybe Int)
-loadSeed = maybeReadFile "saveSlot/seed" <&> (>>= readMaybe)
+loadSeed = maybeReadFile "generated/saves/seed" <&> (>>= readMaybe)
 
 maybeReadFile :: String -> IO (Maybe String)
 maybeReadFile fpath = do

src/Dodge/Save.hs

@@ -34,7 +34,7 @@ import System.Directory
 writeSaveSlot :: SaveSlot -> Universe -> IO (Universe -> Maybe Universe)
 writeSaveSlot ss u = do
     putStrLn $ "Saving " ++ saveSlotPath ss
-    createDirectoryIfMissing True "saveSlot"
+    createDirectoryIfMissing True "generated/saves"
     BS.writeFile (saveSlotPath ss) $
         --AEP.encodePretty'
         --    (AEP.Config (AEP.Spaces 2) compare AEP.Generic False)
@@ -61,9 +61,9 @@ readSaveSlot ss = do
     path uv = uv ^. uvWorld . cWorld . pathGraph
 
 saveSlotPath :: SaveSlot -> String
-saveSlotPath (SaveSlotNum i) = "saveSlot/" ++ show i
-saveSlotPath QuicksaveSlot = "saveSlot/QuickSave"
-saveSlotPath (LevelStartSlot i) = "saveSlot/LevelStart" ++ show i
+saveSlotPath (SaveSlotNum i) = "generated/saves/" ++ show i
+saveSlotPath QuicksaveSlot = "generated/saves/QuickSave"
+saveSlotPath (LevelStartSlot i) = "generated/saves/LevelStart" ++ show i
 
 saveWorldInSlot :: SaveSlot -> Universe -> Universe
 saveWorldInSlot slot u = u & addSideEffect (writeSaveSlot slot u) "SAVING"

src/Dodge/Update/Input/DebugTest.hs

@@ -39,7 +39,7 @@ doDebugTest2 = uvDebugFloat1 .~ 20
 
 doDebugTestF6 :: Universe -> Universe
 doDebugTestF6 = uvIOEffects %~ \f u -> do
-    Just ss <- decodeFileStrict "saveSlot/QuickSave"
+    Just ss <- decodeFileStrict "generated/saves/QuickSave"
     writeFile "log/prettyQuickSave" ""
     mapM_ (\s -> appendFile "log/prettyQuickSave" (s ++ "\n")) $ prettyShort (ss :: CWorld)
     putStrLn "log/prettyQuickSave written"