actually edit password policy

2018-12-24 13:10:54 -05:00 · 2018-12-24 13:10:54 -05:00 · 51208d3fe9
parent 12049652c4
commit 51208d3fe9
1 changed files with 1 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -174,7 +174,7 @@ editPolicy p = if validatePWPolicy p
    edit l v t p = reqIf
      (confirm $ l ++ " is " ++ show v ++ "\nchange?")
      (do
-        x <- required $ prompt ("new " ++ l ++ ": ") reqInt
+        v <- required $ prompt ("new " ++ l ++ ": ") reqInt
        return $ set t v p)
      (return p)
    special p = do