haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix a warning

Browse Source
This commit is contained in:
Michael Snoyman 2011-12-14 09:39:59 +02:00
parent 5a52d3bbdd
commit 0f72117e53
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-default/Yesod/Default/Config.hs
View File

@ -48,12 +48,6 @@ defaultArgConfig =
&= typ "PORT" &= 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 -- | Load an @'AppConfig'@ using the @'DefaultEnv'@ environments from
-- commandline arguments. -- commandline arguments.
fromArgs :: IO (AppConfig DefaultEnv ()) fromArgs :: IO (AppConfig DefaultEnv ())