strictify histCountsPerBucket

fimad · Mar 31, 2020 · 23e3704 · 23e3704
1 parent 56e33f2
commit 23e3704
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/prometheus-client/src/Prometheus/Metric/Histogram.hs b/prometheus-client/src/Prometheus/Metric/Histogram.hs
@@ -59,7 +59,7 @@ data BucketCounts = BucketCounts {
     -- | Counts for each bucket. The key is the upper-bound,
     -- value is the number of observations less-than-or-equal-to
     -- that upper bound, but greater than the next lowest upper bound.
-,   histCountsPerBucket :: Map.Map Bucket Int
+,   histCountsPerBucket :: !(Map.Map Bucket Int)
 } deriving (Show, Eq, Ord)
 
 emptyCounts :: [Bucket] -> BucketCounts