From 31f659e3aa381357e2ba976676adb83291509d8a Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sat, 4 Oct 2025 09:53:33 +0100
Subject: [PATCH] Move saves to generated folder

---
 src/Dodge/LoadSeed.hs               | 2 +-
 src/Dodge/Save.hs                   | 8 ++++----
 src/Dodge/Update/Input/DebugTest.hs | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Dodge/LoadSeed.hs b/src/Dodge/LoadSeed.hs
index 75671664e..586a455f7 100644
--- a/src/Dodge/LoadSeed.hs
+++ b/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
diff --git a/src/Dodge/Save.hs b/src/Dodge/Save.hs
index 9351ffce9..161d0a588 100644
--- a/src/Dodge/Save.hs
+++ b/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"
diff --git a/src/Dodge/Update/Input/DebugTest.hs b/src/Dodge/Update/Input/DebugTest.hs
index 0e55e66a6..0cf8b9403 100644
--- a/src/Dodge/Update/Input/DebugTest.hs
+++ b/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"