Unify save states

2021-10-19 14:20:56 +01:00
parent 4c3a18d7d7
commit 1f8b4b8565
6 changed files with 25 additions and 18 deletions
@@ -33,7 +33,7 @@ handleKeyboardEvent kev w = case keyboardEventKeyMotion kev of
 handlePressedKey :: Bool -> Scancode -> World -> Maybe World
 handlePressedKey True _     w   = Just w
 handlePressedKey _    ScancodeF5 w = Just $ doQuicksave w
-handlePressedKey _    ScancodeF9 w = Just $ maybe w doQuicksave (_quicksaveLevel w)
+handlePressedKey _    ScancodeF9 w = Just $ loadSaveSlot QuicksaveSlot w
 handlePressedKey _    ScancodeSemicolon w = Just $ gotoTerminal w
 handlePressedKey _    scode w
    | null (_menuLayers w)      = handlePressedKeyInGame scode w