chore: add comments on the Observation module

This commit is contained in:
steve-chavez
2024-11-15 16:11:26 -05:00
committed by Steve Chavez
parent 2766b844a9
commit 80a4edbd2d
3 changed files with 10 additions and 1 deletions
+5
View File
@@ -1,3 +1,7 @@
{-|
Module : PostgREST.Logger
Description : Metrics based on the Observation module. See Observation.hs.
-}
module PostgREST.Metrics
( init
, MetricsState (..)
@@ -28,6 +32,7 @@ init configDbPoolSize = do
setGauge poolMaxSize (fromIntegral configDbPoolSize)
pure $ MetricsState poolTimeouts poolAvailable poolWaiting poolMaxSize schemaCacheLoads schemaCacheQueryTime
-- Only some observations are used as metrics
observationMetrics :: MetricsState -> ObservationHandler
observationMetrics (MetricsState poolTimeouts poolAvailable poolWaiting _ schemaCacheLoads schemaCacheQueryTime) obs = case obs of
(PoolAcqTimeoutObs _) -> do