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

streamlined policy edit process

This commit is contained in:
Jonathan Lamothe 2018-12-25 18:32:26 -05:00
parent 8765d27236
commit 649d986a5d
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/Main.hs
View File

@ -199,12 +199,10 @@ editPolicy p = if validatePWPolicy p
else reqFail else reqFail
else reqFail else reqFail
where where
edit l v t p = reqIf edit l v t p = do
(confirm $ l ++ " is " ++ show v ++ "\nchange?") v <- reqDefault
(do (prompt ("new " ++ l ++ " (default " ++ show v ++ "): ") reqInt) v
v <- required $ prompt ("new " ++ l ++ ": ") reqInt return $ set t v p
return $ set t v p)
(return p)
special p = do special p = do
reqIO $ putStrLn $ "special chars are currently " ++ reqIO $ putStrLn $ "special chars are currently " ++
(case p^.pwSpecial of (case p^.pwSpecial of