jlamothe/passman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Don't crash if the database doesn't exist

This commit is contained in:
Jonathan Lamothe 2024-09-10 20:12:46 -04:00
parent 86278db578
commit 233a559aaf
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Password/App/Event.hs
View File

@ -47,6 +47,7 @@ import Lens.Micro ((^.))
import Lens.Micro.Mtl (zoom) import Lens.Micro.Mtl (zoom)
import System.EasyFile import System.EasyFile
( createDirectoryIfMissing ( createDirectoryIfMissing
, doesFileExist
, getAppUserDataDirectory , getAppUserDataDirectory
, (</>) , (</>)
) )
@ -70,7 +71,9 @@ loadDatabase = zoom database $ liftIO
( do ( do
dir <- mkAppDir dir <- mkAppDir
let fn = dir </> dbFile let fn = dir </> dbFile
decodeFileStrict fn doesFileExist fn >>= \case
True -> decodeFileStrict fn
False -> return Nothing
) >>= mapM_ put ) >>= mapM_ put
fallbackHandler :: BrickEvent ResName () -> EventM ResName AppState () fallbackHandler :: BrickEvent ResName () -> EventM ResName AppState ()