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

more intuitive search

This commit is contained in:
Jonathan Lamothe 2018-12-25 19:38:27 -05:00
parent f119aa8264
commit 58d27f4c20
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/Main.hs
View File

@ -124,7 +124,12 @@ searchServ :: S.StateT Status IO ()
searchServ = do
svc <- req $ prompt "service name: " reqResp
db <- S.gets $ view database
selectServ $ pwSearch svc db
case pwSearch svc db of
[] -> do
lift $ putStrLn "\nservice not found"
mainMenu
[x] -> viewEdit x
xs -> selectServ xs
listServ :: S.StateT Status IO ()
listServ = S.gets (view database) >>= selectServ . pwSearch ""