fixed nextPolicy (for serious this time)

2018-12-21 16:44:25 -05:00 · 2018-12-21 16:44:25 -05:00 · 570cfe4af2
parent 0260f665dc
commit 570cfe4af2
1 changed files with 1 additions and 1 deletions
--- a/src/Password.hs
+++ b/src/Password.hs
@ -231,7 +231,7 @@ nextPolicy x p = over pwLength pred $
  then dec pwDigits
  else case p^.pwSpecial of
    Nothing -> set pwSpecial (Just (-1)) p
-    Just x  -> set pwSpecial (Just $ pred x) p
+    Just _  -> dec $ pwSpecial . traverse
  where
    dec l = over l (max 0 . pred) p