Add generic derivations and To/FromJSON instances

2022-07-25 22:49:18 +01:00
parent f5604ef429
commit b8e8413daa
99 changed files with 1406 additions and 517 deletions
@@ -73,6 +73,8 @@ handlePressedKey True ScancodeBackspace u
    | otherwise  = return $ Just $ u & uvWorld . cWorld . backspaceTimer -~ 1
 handlePressedKey True _    u   = return $ Just u
 handlePressedKey _   scode u = case scode of
+    ScancodeF1          -> Just <$> (writeSaveSlot (SaveSlotNum 1) u >> return u)
+    ScancodeF2          -> Just <$> readSaveSlot (SaveSlotNum 1) u
    ScancodeF5          -> return . Just $ doQuicksave u
    ScancodeF9          -> return . Just $ loadSaveSlot QuicksaveSlot u
    ScancodeSemicolon   -> return . Just $ gotoTerminal u