From b86f809a1026a219db79e864f008a1f544583180 Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Tue, 5 Nov 2013 14:26:46 -0800
Subject: [PATCH] fix environment capitalize function

---
 yesod/Yesod/Default/Config.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod/Yesod/Default/Config.hs b/yesod/Yesod/Default/Config.hs
index a1619053..b256cc2a 100644
--- a/yesod/Yesod/Default/Config.hs
+++ b/yesod/Yesod/Default/Config.hs
@@ -70,7 +70,7 @@ parseArgConfig = do
     getPort front (arg:rest) = getPort (front . (arg:)) rest
 
     capitalize [] = []
-    capitalize (x:xs) = toUpper x : map toLower xs
+    capitalize (x:xs) = toUpper x : xs
 
 -- | Load the app config from command line parameters, using the given
 -- @ConfigSettings.