Merge pull request #54 from srhb/strictify-histcountsperbucket

strictify histCountsPerBucket
fimad · May 28, 2020 · 6f0f5a2 · 6f0f5a2
2 parents 56e33f2 + 23e3704
commit 6f0f5a2
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