From 0f6cbc0b244c0c3cc76009842fb9ec03589a061c Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Wed, 26 Dec 2018 15:03:01 -0500
Subject: [PATCH] added edit password menu

---
 app/UI.hs | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/app/UI.hs b/app/UI.hs
index 4e9bbd4..ec43436 100644
--- a/app/UI.hs
+++ b/app/UI.hs
@@ -96,7 +96,7 @@ searchServ = do
     []  -> do
       lift $ putStrLn "\nservice not found"
       mainMenu
-    [x] -> viewEditServ x
+    [x] -> servMenu x
     xs  -> selectServ xs
 
 listServ :: S.StateT Status IO ()
@@ -104,13 +104,19 @@ listServ = S.gets (view database) >>= selectServ . pwSearch ""
 
 selectServ :: [String] -> S.StateT Status IO ()
 selectServ xs = menu "Select Service" $
-  map (\x -> (x, viewEditServ x)) xs ++
+  map (\x -> (x, servMenu x)) xs ++
   [("(cancel)", mainMenu)]
 
-viewEditServ :: String -> S.StateT Status IO ()
-viewEditServ x = menu x
-  [ ( "show password", showPass x >> viewEditServ x )
-  , ( "cancel",        mainMenu                     )
+servMenu :: String -> S.StateT Status IO ()
+servMenu x = menu x
+  [ ( "show password", showPass x >> servMenu x )
+  , ( "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 ()