From 0f72117e535465e3bf8382faf0ee4429b1870c86 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 14 Dec 2011 09:39:59 +0200
Subject: [PATCH] Fix a warning

---
 yesod-default/Yesod/Default/Config.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/yesod-default/Yesod/Default/Config.hs b/yesod-default/Yesod/Default/Config.hs
index 0d6b86b3..4a35c090 100644
--- a/yesod-default/Yesod/Default/Config.hs
+++ b/yesod-default/Yesod/Default/Config.hs
@@ -48,12 +48,6 @@ defaultArgConfig =
             &= typ  "PORT"
         }
 
-    where
-        environments :: String
-        environments = foldl1 (\a b -> a ++ ", " ++ b)
-                     . map ((map toLower) . show)
-                     $ ([minBound..maxBound] :: [DefaultEnv])
-
 -- | Load an @'AppConfig'@ using the @'DefaultEnv'@ environments from
 --   commandline arguments.
 fromArgs :: IO (AppConfig DefaultEnv ())