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

Shorter more readable toChar.

Browse Source
This commit is contained in:
Björn Buckwalter 2011-09-17 00:43:16 +08:00
parent 4ed740724e
commit 33ee15d56f
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-core/Yesod/Internal/Request.hs
View File

@ -81,10 +81,7 @@ parseWaiRequest' env session' key' gen = Request gets'' cookies' env langs''' no
randomString :: RandomGen g => Int -> g -> String randomString :: RandomGen g => Int -> g -> String
randomString len = take len . map toChar . randomRs (0, 61) randomString len = take len . map toChar . randomRs (0, 61)
where where
toChar i toChar i = (['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9']) !! i
| i < 26 = toEnum $ i + fromEnum 'A'
| i < 52 = toEnum $ i + fromEnum 'a' - 26
| otherwise = toEnum $ i + fromEnum '0' - 52
-- | A tuple containing both the POST parameters and submitted files. -- | A tuple containing both the POST parameters and submitted files.
type RequestBodyContents = type RequestBodyContents =