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

minor refactor to app/Util.hs to make hlint happy

This commit is contained in:
Jonathan Lamothe 2023-05-04 14:47:20 -04:00
parent 8be90e9822
commit 85920c26a0
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ChangeLog.md
View File

@ -3,6 +3,7 @@
## current ## current
- minor UI tweak - minor UI tweak
- minor refactoring
## 0.3.1.1 ## 0.3.1.1

4
app/Util.hs
View File

@ -105,9 +105,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 = reqDefault loadFrom path = fromMaybe newPWDatabase <$> reqDefault
(reqIO (decodeFileStrict path)) (reqIO (decodeFileStrict path))
(Just newPWDatabase) >>= (return . fromMaybe newPWDatabase) (Just newPWDatabase)
save :: S.StateT Status IO () save :: S.StateT Status IO ()
save = do save = do