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

added edit password menu

This commit is contained in:
Jonathan Lamothe 2018-12-26 15:03:01 -05:00
parent aad435f366
commit 0f6cbc0b24
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
app/UI.hs
View File

@ -96,7 +96,7 @@ searchServ = do
[] -> do [] -> do
lift $ putStrLn "\nservice not found" lift $ putStrLn "\nservice not found"
mainMenu mainMenu
[x] -> viewEditServ x [x] -> servMenu x
xs -> selectServ xs xs -> selectServ xs
listServ :: S.StateT Status IO () listServ :: S.StateT Status IO ()
@ -104,13 +104,19 @@ listServ = S.gets (view database) >>= selectServ . pwSearch ""
selectServ :: [String] -> S.StateT Status IO () selectServ :: [String] -> S.StateT Status IO ()
selectServ xs = menu "Select Service" $ selectServ xs = menu "Select Service" $
map (\x -> (x, viewEditServ x)) xs ++ map (\x -> (x, servMenu x)) xs ++
[("(cancel)", mainMenu)] [("(cancel)", mainMenu)]
viewEditServ :: String -> S.StateT Status IO () servMenu :: String -> S.StateT Status IO ()
viewEditServ x = menu x servMenu x = menu x
[ ( "show password", showPass x >> viewEditServ x ) [ ( "show password", showPass x >> servMenu x )
, ( "cancel", mainMenu ) , ( "edit password", editPassMenu x )
, ( "cancel", mainMenu )
]
editPassMenu :: String -> S.StateT Status IO ()
editPassMenu x = menu (x ++ " : Edit Password")
[ ( "cancel", servMenu x )
] ]
changeMasterPass :: S.StateT Status IO () changeMasterPass :: S.StateT Status IO ()