haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Exported saltPass

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-19 07:29:27 +02:00
parent 0365e46a3e
commit 23141acaac
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Helpers/Auth/Email.hs
View File

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