cbaines/guile-prometheus
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Christopher Baines 2020-12-05 17:52:12 +00:00
parent 6d9f8c57eb
commit 7868c83840
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
prometheus.scm
View file

@ -341,7 +341,12 @@ values are the values."
0)))))) 0))))))
buckets))))) 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 "Call @var{thunk} while recording the duration in seconds between
calling @var{thunk} and the procedure ending using a metric by the calling @var{thunk} and the procedure ending using a metric by the
name of @var{metric-name}. 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) (or (metrics-registry-fetch-metric registry metric-name)
(make-histogram-metric (make-histogram-metric
registry registry
metric-name))) metric-name
#:buckets buckets
#:docstring docstring
#:labels labels
#:label-preset-values label-preset-values)))
(start-time (current-time))) (start-time (current-time)))
(call-with-values (call-with-values
thunk thunk