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

Break out randomString for testing in isolation.

Browse Source
This commit is contained in:
Björn Buckwalter 2011-09-16 11:44:03 +08:00
parent 884c363ebf
commit 4d55332afc
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -67,7 +67,13 @@ parseWaiRequest' env session' key' gen = Request gets'' cookies' env langs''' no
(Nothing, _) -> Nothing (Nothing, _) -> Nothing
(_, Just x) -> Just x (_, Just x) -> Just x
_ -> Just $ pack $ randomString 10 gen _ -> Just $ pack $ randomString 10 gen
randomString len = take len . map toChar . randomRs (0, 61)
-- | Generate a random String of alphanumerical characters
-- (a-z, A-Z, and 0-9) of the given length using the given
-- random number generator.
randomString :: RandomGen g => Int -> g -> String
randomString len = take len . map toChar . randomRs (0, 61)
where
toChar i toChar i
| i < 26 = toEnum $ i + fromEnum 'A' | i < 26 = toEnum $ i + fromEnum 'A'
| i < 52 = toEnum $ i + fromEnum 'a' - 26 | i < 52 = toEnum $ i + fromEnum 'a' - 26