From 94fd4085cb031026214be745b7ec924f30bdc954 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sat, 22 Apr 2023 23:10:37 +0100
Subject: [PATCH] Create saveSlot folder if missing on first save of generated
 world

---
 src/Dodge/StartNewGame.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Dodge/StartNewGame.hs b/src/Dodge/StartNewGame.hs
index 80643bade..a933beb8a 100644
--- a/src/Dodge/StartNewGame.hs
+++ b/src/Dodge/StartNewGame.hs
@@ -10,6 +10,7 @@ import Dodge.Save
 import Dodge.WorldLoad
 import LensHelp
 import System.Random
+import System.Directory
 
 startNewGameInSlot :: Int -> Universe -> Universe
 startNewGameInSlot slot u = startSeedGame slot i u
@@ -26,6 +27,7 @@ startSeedGame _ i u =
 startSeedGameConc :: Int -> PreloadData -> IO (Universe -> Maybe Universe)
 startSeedGameConc seed pdata = do
     w <- generateWorldFromSeed (pdata ^?! renderData) seed
+    createDirectoryIfMissing True "saveSlot"
     writeFile "saveSlot/seed" $ show seed
     return $
         Just