From 6d9f8c57eb37dc5b6ca49a0f4cce8b83b752c169 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 5 Dec 2020 17:49:46 +0000
Subject: Fix metric # TYPE for histograms

---
 prometheus.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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)
-- 
cgit v1.2.3