implemented newPWDatabase

src/Password.hs

@@ -34,7 +34,7 @@ module Password (
   -- *** PWPolicy
   pwLength, pwUpper, pwLower, pwDigits, pwSpecial,
   -- ** Default Instances
-  newPWData, newPWPolicy, newPWSalt,
+  newPWDatabase, newPWData, newPWPolicy, newPWSalt,
   -- * Functions
   validatePWPolicy
   ) where
@@ -83,6 +83,10 @@ type PWSalt = B.ByteString
 makeLenses ''PWPolicy
 makeLenses ''PWData
 
+-- | default (empty) password database
+newPWDatabase :: PWDatabase
+newPWDatabase = M.empty
+
 -- | builds a new @'PWData'@
 newPWData
   :: RandomGen g