justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Move saves to generated folder

Browse Source
This commit is contained in:
justin
2025-10-04 09:53:33 +01:00
parent 39fb1963c8
commit 31f659e3aa
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Save.hs
+4 -4
View File
@@ -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"