diff --git a/src/Password.hs b/src/Password.hs index b37ba3c..965efb6 100644 --- a/src/Password.hs +++ b/src/Password.hs @@ -22,4 +22,24 @@ License along with this program. If not, see -} -module Password where +module Password ( + -- * Data Types + PWPolicy (..) + ) where + +-- | defines a password policy +data PWPolicy = PWPolicy + { _pwLength :: Int + -- ^ password length + , _pwUpper :: Int + -- ^ the minimum number of upper case characters + , _pwLower :: Int + -- ^ the minimum number of lower case characters + , _pwDigits :: Int + -- ^ the minimum number of digits + , _pwSpecial :: Maybe Int + -- ^ the minimum number of non-alphanumeric characters (not allowed + -- if @"Nothing"@) + } deriving (Eq, Show) + +--jl