implemented default password policy

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