valderman / tini Goto Github PK

data SavedState = SavedState
  { sshighscore :: Score
  } deriving (Generic, Show, Eq)

instance Configurable SavedState where
  defaultConfig = SavedState { sshighscore = 0 }

-- Where to save persistent state.
saveFile :: IO FilePath
saveFile = (</> progname <.> "save") <$> getXdgDirectory XdgData progname

-- Write the game's saveable state to the filesystem, if possible.
-- Catch any error and return the message.
gameSave :: Game -> IO (Maybe String)
gameSave Game{gsaved} = handle (\(e::IOException) -> return $ Just $ show e) $ do
  f <- saveFile
  createDirectoryIfMissing True $ takeDirectory f
  writeConfigFile f gsaved
  return Nothing