Expose underlying encrypt function used by Auth

snapframework · Jan 12, 2012 · 6047c55 · 6047c55
1 parent 0645e4b
commit 6047c55
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 5 deletions.
diff --git a/src/Snap/Snaplet/Auth.hs b/src/Snap/Snaplet/Auth.hs
@@ -49,6 +49,7 @@ module Snap.Snaplet.Auth
   -- * Other Utilities
   , withBackend
   , encryptPassword
+  , encrypt
   , checkPassword
   , authenticatePassword
   , setPassword

diff --git a/src/Snap/Snaplet/Auth/Types.hs b/src/Snap/Snaplet/Auth/Types.hs
@@ -34,14 +34,19 @@ defaultStrength :: Int
 defaultStrength = 12
 
 
+-------------------------------------------------------------------------------
+-- | The underlying encryption function, in case you need it for
+-- external processing.
+encrypt :: ByteString -> IO ByteString
+encrypt = flip makePassword defaultStrength
+
+
 ------------------------------------------------------------------------------
--- Turn a 'ClearText' password into an 'Encrypted' password, ready to be
--- stuffed into a database.
+-- | Turn a 'ClearText' password into an 'Encrypted' password, ready to
+-- be stuffed into a database.
 encryptPassword :: Password -> IO Password
 encryptPassword p@(Encrypted {}) = return p
-encryptPassword (ClearText p)    = do
-  hashed <- makePassword p defaultStrength
-  return $ Encrypted hashed
+encryptPassword (ClearText p)    = Encrypted `fmap` encrypt p 
 
 
 ------------------------------------------------------------------------------