Aestetic reordering of composed functions.

2011-09-15 15:13:54 +08:00 · 2011-09-15 15:13:54 +08:00 · ffefbb41b9
commit ffefbb41b9
parent a1d4f5ee00
1 changed files with 1 additions and 1 deletions
--- 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