Allow passing more options to call-with-duration-metric

1 files 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