From 23141acaacc259dd9d7abb1d31ce2b2eca5b92c6 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 19 Oct 2010 07:29:27 +0200
Subject: [PATCH] Exported saltPass

---
 Yesod/Helpers/Auth/Email.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Yesod/Helpers/Auth/Email.hs b/Yesod/Helpers/Auth/Email.hs
index 535486f9..0b1fadac 100644
--- a/Yesod/Helpers/Auth/Email.hs
+++ b/Yesod/Helpers/Auth/Email.hs
@@ -3,6 +3,7 @@ module Yesod.Helpers.Auth.Email
     ( authEmail
     , YesodAuthEmail (..)
     , EmailCreds (..)
+    , saltPass
     ) where
 
 import Yesod
@@ -231,6 +232,7 @@ postPasswordR = do
 saltLength :: Int
 saltLength = 5
 
+-- | Salt a password with a randomly generated salt.
 saltPass :: String -> IO String
 saltPass pass = do
     stdgen <- newStdGen