From ffefbb41b9d7aa819fa1317613635e8a73c6b89d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bjo=CC=88rn=20Buckwalter?= Date: Thu, 15 Sep 2011 15:13:54 +0800 Subject: [PATCH] Aestetic reordering of composed functions. --- yesod-core/Yesod/Internal/Request.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-core/Yesod/Internal/Request.hs b/yesod-core/Yesod/Internal/Request.hs index 73b45e71..b1e242c1 100644 --- a/yesod-core/Yesod/Internal/Request.hs +++ b/yesod-core/Yesod/Internal/Request.hs @@ -59,7 +59,7 @@ parseWaiRequest env session' key' = do let gets'' = map (second $ fromMaybe "") gets' return $ Request gets'' cookies' env langs''' nonce where - randomString len = map toChar . take len . randomRs (0, 61) + randomString len = take len . map toChar . randomRs (0, 61) toChar i | i < 26 = toEnum $ i + fromEnum 'A' | i < 52 = toEnum $ i + fromEnum 'a' - 26