Add true quicksave and guickload

src/Dodge/Save.hs

@@ -2,6 +2,7 @@ module Dodge.Save (
     saveWorldInSlot,
     loadSaveSlot,
     doQuicksave,
+    doQuickload,
 --    saveLevelStartSlot,
     writeSaveSlot,
     readSaveSlot,
@@ -9,6 +10,7 @@ module Dodge.Save (
 ) where
 
 
+import Data.Maybe
 import Dodge.WorldLoad
 import Dodge.Path.Translate
 import Data.Graph.Inductive (labEdges, labNodes)
@@ -70,16 +72,14 @@ reloadLevelStart :: Universe -> Universe
 reloadLevelStart = loadSaveSlot (LevelStartSlot 0)
 
 loadSaveSlot :: SaveSlot -> Universe -> Universe
-loadSaveSlot slot = blockingLoad "LOADING SAVE" $ readSaveSlot slot
+loadSaveSlot slot = blockingLoad ("DESERIALISING "++ show slot) $ readSaveSlot slot
 
 doQuicksave :: Universe -> Universe
-doQuicksave = saveWorldInSlot QuicksaveSlot
+doQuicksave u = u
+    & uvRAMSave ?~ _uvWorld u
+    & saveWorldInSlot QuicksaveSlot
 
---clearKeys :: World -> World
---clearKeys = (keys .~ mempty) . (mouseButtons .~ mempty)
-
---saveLevelStartSlot :: Universe -> Universe
-----saveLevelStartSlot = id
---saveLevelStartSlot = saveWorldInSlot LevelStartSlot
-
---saveLevelStartSlot = sideEffects %~ (fmap  (undefined) . )
+doQuickload :: Universe -> Universe
+doQuickload u = fromMaybe (loadSaveSlot QuicksaveSlot u) $ do
+    w <- u ^. uvRAMSave
+    return $ u & uvWorld .~ w