Exported saltPass

2010-10-19 07:29:27 +02:00 · 2010-10-19 07:29:27 +02:00 · 23141acaac
commit 23141acaac
parent 0365e46a3e
1 changed files with 2 additions and 0 deletions
--- 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