feat: Log PoolRequest and PoolRequestFullfilled observations (#3925)

This commit is contained in:
Taimoor Zaeem
2025-02-28 12:01:10 -05:00
committed by GitHub
parent 1a287edf7e
commit c9a625ced6
4 changed files with 59 additions and 20 deletions
+6 -4
View File
@@ -94,10 +94,12 @@ observationLogger loggerState logLevel obs = case obs of
-- Does not log SQL when it's empty (for OPTIONS requests or for the default OpenAPI output)
when (sql /= mempty && shouldLogResponse logLevel status) $ do
logWithZTime loggerState $ observationMessage o
PoolRequest ->
pure ()
PoolRequestFullfilled ->
pure ()
o@PoolRequest ->
when (logLevel >= LogDebug) $ do
logWithZTime loggerState $ observationMessage o
o@PoolRequestFullfilled ->
when (logLevel >= LogDebug) $ do
logWithZTime loggerState $ observationMessage o
o ->
logWithZTime loggerState $ observationMessage o