Fix a warning

This commit is contained in:
Michael Snoyman 2011-12-14 09:39:59 +02:00
parent 5a52d3bbdd
commit 0f72117e53

View File

@ -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 ())