Fix a warning
This commit is contained in:
parent
5a52d3bbdd
commit
0f72117e53
@ -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 ())
|
||||
|
||||
Loading…
Reference in New Issue
Block a user