import           Text.Trifecta

type Password = String

data PasswordPolicy = PasswordPolicy { char :: Char, minLetters :: Integer, maxLetters :: Integer } deriving (Show, Eq)

data PasswordRecord = PasswordRecord PasswordPolicy Password deriving (Show, Eq)

newtype Error = Error { message :: String } deriving (Show, Eq)