Add true quicksave and guickload

2023-03-26 12:13:21 +01:00
parent a652b13fa0
commit cfb0a49059
6 changed files with 32 additions and 29 deletions
@@ -93,21 +93,10 @@ firstWorldLoad theConfig = do
                , _uvMSeed = mseed
                , _uvLastFrameTicks = 0
                , _uvFrameTicks = 0
+                , _uvRAMSave = Nothing
+                , _uvDebugInfo = mempty
                }
-    return $
-        Universe
-            { _uvWorld = splashScreen
-            , _uvConfig = theConfig
-            , _preloadData = pdata
-            , _uvScreenLayers = [splashMenu u]
-            , _uvIOEffects = return
-            , _uvTestString = testStringInit
-            , _uvSideEffects = mempty
-            , _uvCanContinue = cancontinue
-            , _uvMSeed = mseed
-            , _uvLastFrameTicks = 0
-            , _uvFrameTicks = 0
-            }
+    return $ u & uvScreenLayers .~ [splashMenu u]

 theUpdateStep :: SDL.Window -> Universe -> IO Universe
 theUpdateStep win = doSideEffects <=< updateRenderSplit win