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/LoadSeed.hs
+1 -1
View File
@@ -5,7 +5,7 @@ import System.Directory
import Text.Read import Text.Read
loadSeed :: IO (Maybe Int) loadSeed :: IO (Maybe Int)
loadSeed = maybeReadFile "saveSlot/seed" <&> (>>= readMaybe) loadSeed = maybeReadFile "generated/saves/seed" <&> (>>= readMaybe)
maybeReadFile :: String -> IO (Maybe String) maybeReadFile :: String -> IO (Maybe String)
maybeReadFile fpath = do maybeReadFile fpath = do
src/Dodge/Save.hs
+4 -4
View File
@@ -34,7 +34,7 @@ import System.Directory
writeSaveSlot :: SaveSlot -> Universe -> IO (Universe -> Maybe Universe) writeSaveSlot :: SaveSlot -> Universe -> IO (Universe -> Maybe Universe)
writeSaveSlot ss u = do writeSaveSlot ss u = do
putStrLn $ "Saving " ++ saveSlotPath ss putStrLn $ "Saving " ++ saveSlotPath ss
createDirectoryIfMissing True "saveSlot" createDirectoryIfMissing True "generated/saves"
BS.writeFile (saveSlotPath ss) $ BS.writeFile (saveSlotPath ss) $
--AEP.encodePretty' --AEP.encodePretty'
-- (AEP.Config (AEP.Spaces 2) compare AEP.Generic False) -- (AEP.Config (AEP.Spaces 2) compare AEP.Generic False)
@@ -61,9 +61,9 @@ readSaveSlot ss = do
path uv = uv ^. uvWorld . cWorld . pathGraph path uv = uv ^. uvWorld . cWorld . pathGraph
saveSlotPath :: SaveSlot -> String saveSlotPath :: SaveSlot -> String
saveSlotPath (SaveSlotNum i) = "saveSlot/" ++ show i saveSlotPath (SaveSlotNum i) = "generated/saves/" ++ show i
saveSlotPath QuicksaveSlot = "saveSlot/QuickSave" saveSlotPath QuicksaveSlot = "generated/saves/QuickSave"
saveSlotPath (LevelStartSlot i) = "saveSlot/LevelStart" ++ show i saveSlotPath (LevelStartSlot i) = "generated/saves/LevelStart" ++ show i
saveWorldInSlot :: SaveSlot -> Universe -> Universe saveWorldInSlot :: SaveSlot -> Universe -> Universe
saveWorldInSlot slot u = u & addSideEffect (writeSaveSlot slot u) "SAVING" saveWorldInSlot slot u = u & addSideEffect (writeSaveSlot slot u) "SAVING"
src/Dodge/Update/Input/DebugTest.hs
+1 -1
View File
@@ -39,7 +39,7 @@ doDebugTest2 = uvDebugFloat1 .~ 20
doDebugTestF6 :: Universe -> Universe doDebugTestF6 :: Universe -> Universe
doDebugTestF6 = uvIOEffects %~ \f u -> do doDebugTestF6 = uvIOEffects %~ \f u -> do
Just ss <- decodeFileStrict "saveSlot/QuickSave" Just ss <- decodeFileStrict "generated/saves/QuickSave"
writeFile "log/prettyQuickSave" "" writeFile "log/prettyQuickSave" ""
mapM_ (\s -> appendFile "log/prettyQuickSave" (s ++ "\n")) $ prettyShort (ss :: CWorld) mapM_ (\s -> appendFile "log/prettyQuickSave" (s ++ "\n")) $ prettyShort (ss :: CWorld)
putStrLn "log/prettyQuickSave written" putStrLn "log/prettyQuickSave written"