From 7868c838406635c546b388f8fa3b99b9597fd33f Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 5 Dec 2020 17:52:12 +0000
Subject: Allow passing more options to call-with-duration-metric

---
 prometheus.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/prometheus.scm b/prometheus.scm
index 4dd750d..464b546 100644
--- a/prometheus.scm
+++ b/prometheus.scm
@@ -341,7 +341,12 @@ values are the values."
                                  0))))))
          buckets)))))
 
-(define (call-with-duration-metric registry metric-name thunk)
+(define* (call-with-duration-metric registry metric-name thunk
+                                    #:key
+                                    (buckets %default-histogram-buckets)
+                                    docstring
+                                    (labels '())
+                                    (label-preset-values '()))
   "Call @var{thunk} while recording the duration in seconds between
 calling @var{thunk} and the procedure ending using a metric by the
 name of @var{metric-name}.
@@ -353,7 +358,11 @@ The metric with the name @var{metric-name} is fetched from the
           (or (metrics-registry-fetch-metric registry metric-name)
               (make-histogram-metric
                registry
-               metric-name)))
+               metric-name
+               #:buckets buckets
+               #:docstring docstring
+               #:labels labels
+               #:label-preset-values label-preset-values)))
          (start-time (current-time)))
     (call-with-values
         thunk
-- 
cgit v1.2.3