implemented default password policy

2018-12-12 17:38:10 -05:00
parent 3853a32259
commit 63105399b8
3 changed files with 50 additions and 2 deletions
--- a/src/Password.hs
+++ b/src/Password.hs
@@ -29,7 +29,9 @@ module Password (
  PWPolicy (..),
  -- ** Lenses
  -- $lenses
-  pwLength, pwUpper, pwLower, pwDigits, pwSpecial
+  pwLength, pwUpper, pwLower, pwDigits, pwSpecial,
+  -- ** Default Instances
+  newPWPolicy
  ) where

 import Control.Lens (makeLenses)
@@ -56,4 +58,8 @@ data PWPolicy = PWPolicy

 makeLenses ''PWPolicy

+-- | default password policy
+newPWPolicy :: PWPolicy
+newPWPolicy = PWPolicy 16 0 0 0 (Just 0)
+
 --jl