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

don't choke when database file doesn't exist

This commit is contained in:
Jonathan Lamothe 2018-12-30 15:27:01 -05:00
parent 0adbc510ae
commit 82c53ce446
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/Util.hs
View File

@ -43,6 +43,7 @@ import System.Console.HCL
, prompt , prompt
, reqAgree , reqAgree
, reqChar , reqChar
, reqDefault
, reqIf , reqIf
, reqIO , reqIO
, reqMenu , reqMenu
@ -94,7 +95,9 @@ confirm :: String -> Request Bool
confirm x = prompt (x ++ " (y/n): ") $ reqAgree Nothing $ fmap return reqChar confirm x = prompt (x ++ " (y/n): ") $ reqAgree Nothing $ fmap return reqChar
loadFrom :: FilePath -> Request PWDatabase loadFrom :: FilePath -> Request PWDatabase
loadFrom path = reqIO $ (decodeFileStrict path) >>= maybe loadFrom path = reqDefault
(reqIO (decodeFileStrict path))
(Just newPWDatabase) >>= maybe
(return newPWDatabase) (return newPWDatabase)
return return