fixed nextPolicy (for serious this time)
This commit is contained in:
parent
0260f665dc
commit
570cfe4af2
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user