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
@@ -109,7 +109,7 @@ updateKeyInGame uv sc pt = case pt of
 updateInitialPressInGame :: Universe -> Scancode -> Universe
 updateInitialPressInGame uv sc = case sc of
    ScancodeF5 -> doQuicksave uv
-    ScancodeF9 -> loadSaveSlot QuicksaveSlot uv
+    ScancodeF9 -> doQuickload uv
    ScancodeEscape -> pauseGame uv
    ScancodeSpace -> over uvWorld spaceAction uv
    ScancodeP -> pauseGame uv