feat: add log-level=debug

src/PostgREST/CLI.hs

@@ -203,7 +203,7 @@ exampleConfigFile =
       |## Enables and set JWT Cache max lifetime, disables caching with 0
       |# jwt-cache-max-lifetime = 0
       |
-      |## Logging level, the admitted values are: crit, error, warn and info.
+      |## Logging level, the admitted values are: crit, error, warn, info and debug.
       |log-level = "error"
       |
       |## Determine if the OpenAPI output should follow or ignore role privileges or be disabled entirely.

src/PostgREST/Config.hs

@@ -114,7 +114,7 @@ data AppConfig = AppConfig
   , configInternalSCSleep          :: Maybe Int32
   }
 
-data LogLevel = LogCrit | LogError | LogWarn | LogInfo
+data LogLevel = LogCrit | LogError | LogWarn | LogInfo | LogDebug
   deriving (Eq, Ord)
 
 dumpLogLevel :: LogLevel -> Text
@@ -123,6 +123,7 @@ dumpLogLevel = \case
   LogError -> "error"
   LogWarn  -> "warn"
   LogInfo  -> "info"
+  LogDebug -> "debug"
 
 data OpenAPIMode = OAFollowPriv | OAIgnorePriv | OADisabled
   deriving Eq
@@ -338,6 +339,7 @@ parser optPath env dbSettings roleSettings roleIsolationLvl =
         Just "error" -> pure LogError
         Just "warn"  -> pure LogWarn
         Just "info"  -> pure LogInfo
+        Just "debug" -> pure LogDebug
         Just _       -> fail "Invalid logging level. Check your configuration."
 
     parseTxEnd :: C.Key -> ((Bool, Bool) -> Bool) -> C.Parser C.Config Bool

src/PostgREST/Logger.hs

@@ -56,10 +56,11 @@ logWithDebounce loggerState action = do
 
 middleware :: LogLevel -> (Wai.Request -> Maybe BS.ByteString) -> Wai.Middleware
 middleware logLevel getAuthRole = case logLevel of
-  LogInfo  -> requestLogger (const True)
-  LogWarn  -> requestLogger (>= status400)
-  LogError -> requestLogger (>= status500)
   LogCrit  -> requestLogger (const False)
+  LogError -> requestLogger (>= status500)
+  LogWarn  -> requestLogger (>= status400)
+  LogInfo  -> requestLogger (const True)
+  LogDebug -> requestLogger (const True)
   where
     requestLogger filterStatus = unsafePerformIO $
       Wai.mkRequestLogger Wai.defaultRequestLoggerSettings
@@ -84,6 +85,9 @@ observationLogger loggerState logLevel obs = case obs of
   o@(HasqlPoolObs _) -> do
     when (logLevel >= LogInfo) $ do
       logWithZTime loggerState $ observationMessage o
+  o@(SchemaCacheLoadedObs _) -> do
+    when (logLevel >= LogDebug) $ do
+      logWithZTime loggerState $ observationMessage o
   o ->
     logWithZTime loggerState $ observationMessage o