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

implemented service removal

This commit is contained in:
Jonathan Lamothe 2018-12-31 14:29:44 -05:00
parent b52380a10b
commit 4fb0920e88
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/UI.hs
View File

@ -144,6 +144,7 @@ servMenu :: String -> S.StateT Status IO ()
servMenu x = menu x
[ ( "show password", showPass x >> servMenu x )
, ( "edit password", editPassMenu x )
, ( "remove service", removeServ x )
, ( "back", mainMenu )
]
@ -154,6 +155,16 @@ editPassMenu x = menu (x ++ " : Edit Password")
, ( "back", servMenu x )
]
removeServ :: String -> S.StateT Status IO ()
removeServ x = do
go <- req $ confirm $
"Are you sure you want to delete the password for " ++ x ++ "?"
if go
then do
S.modify $ over database $ pwRemoveService x
mainMenu
else servMenu x
changeSalt :: String -> S.StateT Status IO ()
changeSalt x = withService x mainMenu $ \d -> do
salt <- run newPWSalt