aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--prometheus.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/prometheus.scm b/prometheus.scm
index 53859c5..4dd750d 100644
--- a/prometheus.scm
+++ b/prometheus.scm
@@ -388,7 +388,10 @@ so that it can receive and store the metric values."
docstring)))
(simple-format port "# TYPE ~A ~A\n"
- full-name (metric-type metric))
+ full-name
+ (match (metric-type metric)
+ ((? histogram-metric-type? type) 'histogram)
+ (type type)))
(hash-for-each
(lambda (label-values value)