appease codecov

PostgREST · Apr 23, 2024 · 344bf48 · 344bf48
1 parent b602952
commit 344bf48
Showing 1 changed file with 12 additions and 19 deletions.
diff --git a/src/PostgREST/Metrics.hs b/src/PostgREST/Metrics.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE NamedFieldPuns #-}
 module PostgREST.Metrics
   ( init
   , MetricsState (..)
@@ -15,28 +14,22 @@ import PostgREST.Observation
 
 import Protolude
 
-data MetricsState = MetricsState
-  { poolTimeouts         :: Prom.Counter
-  , poolAvailable        :: Prom.Gauge
-  , poolWaiting          :: Prom.Gauge
-  , poolMaxSize          :: Prom.Gauge
-  , schemaCacheLoads     :: Prom.Counter
-  , schemaCacheQueryTime :: Prom.Gauge
-  }
+data MetricsState =
+  MetricsState Prom.Counter Prom.Gauge Prom.Gauge Prom.Gauge Prom.Counter Prom.Gauge
 
 init :: Int -> IO MetricsState
-init poolMaxSize = do
-  timeouts <- Prom.register $ Prom.counter (Prom.Info "pgrst_db_pool_timeouts_total" "The total number of pool connection timeouts")
-  available <- Prom.register $ Prom.gauge (Prom.Info "pgrst_db_pool_available" "Available connections in the pool")
-  waiting <- Prom.register $ Prom.gauge (Prom.Info "pgrst_db_pool_waiting" "Requests waiting to acquire a pool connection")
-  maxSize <- Prom.register $ Prom.gauge (Prom.Info "pgrst_db_pool_max" "Max pool connections")
-  sCacheLoads <- Prom.register $ Prom.counter (Prom.Info "pgrst_schema_cache_loads_total" "The total number of times the schema cache was loaded")
-  sCacheQTime <- Prom.register $ Prom.gauge (Prom.Info "pgrst_schema_cache_query_time_seconds" "The query time in seconds of the last schema cache load")
-  Prom.setGauge maxSize (fromIntegral poolMaxSize)
-  pure $ MetricsState timeouts available waiting maxSize sCacheLoads sCacheQTime
+init configDbPoolSize = do
+  poolTimeouts <- Prom.register $ Prom.counter (Prom.Info "pgrst_db_pool_timeouts_total" "The total number of pool connection timeouts")
+  poolAvailable <- Prom.register $ Prom.gauge (Prom.Info "pgrst_db_pool_available" "Available connections in the pool")
+  poolWaiting <- Prom.register $ Prom.gauge (Prom.Info "pgrst_db_pool_waiting" "Requests waiting to acquire a pool connection")
+  poolMaxSize <- Prom.register $ Prom.gauge (Prom.Info "pgrst_db_pool_max" "Max pool connections")
+  schemaCacheLoads <- Prom.register $ Prom.counter (Prom.Info "pgrst_schema_cache_loads_total" "The total number of times the schema cache was loaded")
+  schemaCacheQueryTime <- Prom.register $ Prom.gauge (Prom.Info "pgrst_schema_cache_query_time_seconds" "The query time in seconds of the last schema cache load")
+  Prom.setGauge poolMaxSize (fromIntegral configDbPoolSize)
+  pure $ MetricsState poolTimeouts poolAvailable poolWaiting poolMaxSize schemaCacheLoads schemaCacheQueryTime
 
 observationMetrics :: MetricsState -> ObservationHandler
-observationMetrics MetricsState{poolTimeouts, poolAvailable, poolWaiting, schemaCacheLoads, schemaCacheQueryTime} obs = case obs of
+observationMetrics (MetricsState poolTimeouts poolAvailable poolWaiting _ schemaCacheLoads schemaCacheQueryTime) obs = case obs of
   (PoolAcqTimeoutObs _) -> do
     Prom.incCounter poolTimeouts
   (HasqlPoolObs (SQL.ConnectionObservation _ status)) -> case status of