fix: do not log internal db errors like 'acquisition timeout' when log-level=crit

2023-11-27 23:06:40 -05:00
parent 33891e3a73
commit dfa875c8c7
7 changed files with 47 additions and 32 deletions
@@ -115,6 +115,7 @@ data AppConfig = AppConfig
  }

 data LogLevel = LogCrit | LogError | LogWarn | LogInfo
+  deriving (Eq, Ord)

 dumpLogLevel :: LogLevel -> Text
 dumpLogLevel = \case