Compare commits

...

2 Commits

3 changed files with 8 additions and 3 deletions

View File

@ -1,5 +1,10 @@
# Changelog for passman # Changelog for passman
## current
- minor UI tweak
- minor refactoring
## 0.3.1.1 ## 0.3.1.1
- updated documentation to on longer mention GitHub - updated documentation to on longer mention GitHub

View File

@ -142,7 +142,7 @@ buildData = do
searchServ :: S.StateT Status IO () searchServ :: S.StateT Status IO ()
searchServ = do searchServ = do
svc <- req $ prompt "service name: " reqResp svc <- req $ prompt "\nservice name: " reqResp
db <- S.gets $ view database db <- S.gets $ view database
case pwSearch svc db of case pwSearch svc db of
[] -> do [] -> do

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