Move towards serializing saves/loads faster

2022-08-19 11:12:43 +01:00
parent c74d3b04bf
commit 9df0fa8692
38 changed files with 542 additions and 384 deletions
@@ -22,7 +22,8 @@ startSeedGame _ i = tryConcEffect True "GENERATING" (startSeedGameConc i)
 startSeedGameConc :: Int -> IO (Universe -> Maybe Universe)
 startSeedGameConc seed = do
    w <- generateWorldFromSeed seed
-    return $ Just 
+    writeFile "saveSlot/seed" $ show seed
+    return $ Just
        . saveWorldInSlot (LevelStartSlot 0)
        . (uvScreenLayers .~ [])
        . (uvWorld .~ w)