Change default log-level, from info to error

This commit is contained in:
steve-chavez
2020-10-06 14:21:46 -05:00
committed by Steve Chavez
parent d9a608d9b0
commit ccad9eb9bc
2 changed files with 4 additions and 3 deletions
+3 -3
View File
@@ -195,7 +195,7 @@ readPathShowHelp = customExecParser parserPrefs opts
|# raw-media-types="image/png, image/jpg"
|
|## logging level, the admitted values are: crit, error, warn and info.
|# log-level = "info"
|# log-level = "error"
|]
-- | Parse the config file
@@ -266,8 +266,8 @@ readAppConfig cfgPath = do
parseLogLevel :: C.Key -> C.Parser C.Config LogLevel
parseLogLevel k =
C.optional k C.string >>= \case
Nothing -> pure LogInfo
Just "" -> pure LogInfo
Nothing -> pure LogError
Just "" -> pure LogError
Just "crit" -> pure LogCrit
Just "error" -> pure LogError
Just "warn" -> pure LogWarn