Make all Sample types showable

This commit derives `Show` for all of our *Sample types: - `CounterSample` - `GaugeSample` - `HistogramSample` - `SummarySample`
bitnomial · Dec 19, 2023 · c881277 · c881277
1 parent 27fa227
commit c881277
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 2 deletions.
diff --git a/src/System/Metrics/Prometheus/Metric/Counter.hs b/src/System/Metrics/Prometheus/Metric/Counter.hs
@@ -15,7 +15,7 @@ import Data.Atomics.Counter (AtomicCounter, incrCounter, newCounter, writeCounte
 
 
 newtype Counter = Counter {unCounter :: AtomicCounter}
-newtype CounterSample = CounterSample {unCounterSample :: Int}
+newtype CounterSample = CounterSample {unCounterSample :: Int} deriving Show
 
 
 new :: IO Counter

diff --git a/src/System/Metrics/Prometheus/Metric/Gauge.hs b/src/System/Metrics/Prometheus/Metric/Gauge.hs
@@ -16,7 +16,7 @@ import Data.IORef (IORef, atomicModifyIORef', newIORef)
 
 
 newtype Gauge = Gauge {unGauge :: IORef Double}
-newtype GaugeSample = GaugeSample {unGaugeSample :: Double}
+newtype GaugeSample = GaugeSample {unGaugeSample :: Double} deriving Show
 
 
 new :: IO Gauge

diff --git a/src/System/Metrics/Prometheus/Metric/Histogram.hs b/src/System/Metrics/Prometheus/Metric/Histogram.hs
@@ -36,6 +36,7 @@ data HistogramSample = HistogramSample
     , histSum :: !Double
     , histCount :: !Int
     }
+    deriving Show
 
 
 new :: [UpperBound] -> IO Histogram

diff --git a/src/System/Metrics/Prometheus/Metric/Summary.hs b/src/System/Metrics/Prometheus/Metric/Summary.hs
@@ -8,3 +8,4 @@ data SummarySample = SummarySample
     , sumSum :: !Int
     , sumCount :: !Int
     }
+    deriving Show