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

Merge pull request #1112 from mrkkrp/minor-auth-tweaks

Browse Source 
Minor auth tweaks
This commit is contained in:
Michael Snoyman 2015-12-03 23:19:20 +02:00
commit ae04cca639
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-auth/Yesod/Auth/Email.hs
View File

@ -549,7 +549,7 @@ saltLength = 5
-- | Salt a password with a randomly generated salt. -- | Salt a password with a randomly generated salt.
saltPass :: Text -> IO Text saltPass :: Text -> IO Text
saltPass = fmap (decodeUtf8With lenientDecode) saltPass = fmap (decodeUtf8With lenientDecode)
. flip PS.makePassword 14 . flip PS.makePassword 16
. encodeUtf8 . encodeUtf8
saltPass' :: String -> String -> String saltPass' :: String -> String -> String

2
yesod-auth/Yesod/PasswordStore.hs
View File

@ -38,7 +38,7 @@
-- > >>> makePassword "hunter2" 14 -- > >>> makePassword "hunter2" 14
-- > "sha256|14|Zo4LdZGrv/HYNAUG3q8WcA==|zKjbHZoTpuPLp1lh6ATolWGIKjhXvY4TysuKvqtNFyk=" -- > "sha256|14|Zo4LdZGrv/HYNAUG3q8WcA==|zKjbHZoTpuPLp1lh6ATolWGIKjhXvY4TysuKvqtNFyk="
-- --
-- This will hash the password @\"hunter2\"@, with strength 12, which is a good -- This will hash the password @\"hunter2\"@, with strength 14, which is a good
-- default value. The strength here determines how long the hashing will -- default value. The strength here determines how long the hashing will
-- take. When doing the hashing, we iterate the SHA256 hash function -- take. When doing the hashing, we iterate the SHA256 hash function
-- @2^strength@ times, so increasing the strength by 1 makes the hashing take -- @2^strength@ times, so increasing the strength by 1 makes the hashing take