fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

don't call modify if database isn't changing

This commit is contained in:
Jonathan Lamothe 2020-03-12 03:19:27 -04:00
parent 7ba670948b
commit 25f887a5e8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Mtlstats/Actions.hs
View File

@ -221,12 +221,12 @@ scrollDown = scrollOffset %~ succ
-- | Loads the database -- | Loads the database
loadDatabase :: Action () loadDatabase :: Action ()
loadDatabase = do loadDatabase = do
db <- gets (^.database)
dbFile <- dbSetup dbFile <- dbSetup
db' <- liftIO $ catch liftIO
(fromMaybe db <$> decodeFileStrict dbFile) (catch
(\(_ :: IOException) -> return db) (decodeFileStrict dbFile)
modify $ database .~ db' (\(_ :: IOException) -> return Nothing))
>>= mapM_ (modify . (database .~))
-- | Saves the database -- | Saves the database
saveDatabase :: Action () saveDatabase :: Action ()