Break out randomString for testing in isolation.

2011-09-16 11:44:03 +08:00 · 2011-09-16 11:44:03 +08:00 · 4d55332afc
commit 4d55332afc
parent 884c363ebf
1 changed files with 7 additions and 1 deletions
--- a/yesod-core/Yesod/Internal/Request.hs
+++ b/yesod-core/Yesod/Internal/Request.hs
@ -67,7 +67,13 @@ parseWaiRequest' env session' key' gen = Request gets'' cookies' env langs''' no
                (Nothing, _) -> Nothing
                (_, Just x) -> Just x
                _ -> 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
        | i < 26 = toEnum $ i + fromEnum 'A'
        | i < 52 = toEnum $ i + fromEnum 'a' - 26