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

Create saveSlot folder if missing on first save of generated world

Browse Source
This commit is contained in:
justin
2023-04-22 23:10:37 +01:00
parent 4ad556d8fe
commit 94fd4085cb
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/StartNewGame.hs
+2
View File
@@ -10,6 +10,7 @@ import Dodge.Save
import Dodge.WorldLoad import Dodge.WorldLoad
import LensHelp import LensHelp
import System.Random import System.Random
import System.Directory
startNewGameInSlot :: Int -> Universe -> Universe startNewGameInSlot :: Int -> Universe -> Universe
startNewGameInSlot slot u = startSeedGame slot i u startNewGameInSlot slot u = startSeedGame slot i u
@@ -26,6 +27,7 @@ startSeedGame _ i u =
startSeedGameConc :: Int -> PreloadData -> IO (Universe -> Maybe Universe) startSeedGameConc :: Int -> PreloadData -> IO (Universe -> Maybe Universe)
startSeedGameConc seed pdata = do startSeedGameConc seed pdata = do
w <- generateWorldFromSeed (pdata ^?! renderData) seed w <- generateWorldFromSeed (pdata ^?! renderData) seed
createDirectoryIfMissing True "saveSlot"
writeFile "saveSlot/seed" $ show seed writeFile "saveSlot/seed" $ show seed
return $ return $
Just Just