actually edit password policy
This commit is contained in:
parent
12049652c4
commit
51208d3fe9
|
@ -174,7 +174,7 @@ editPolicy p = if validatePWPolicy p
|
||||||
edit l v t p = reqIf
|
edit l v t p = reqIf
|
||||||
(confirm $ l ++ " is " ++ show v ++ "\nchange?")
|
(confirm $ l ++ " is " ++ show v ++ "\nchange?")
|
||||||
(do
|
(do
|
||||||
x <- required $ prompt ("new " ++ l ++ ": ") reqInt
|
v <- required $ prompt ("new " ++ l ++ ": ") reqInt
|
||||||
return $ set t v p)
|
return $ set t v p)
|
||||||
(return p)
|
(return p)
|
||||||
special p = do
|
special p = do
|
||||||
|
|
Loading…
Reference in New Issue
Block a user