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

Avoid race conditions in call-with-duration-metric

Browse source
This commit is contained in:
Christopher Baines 2020-12-10 09:43:04 +00:00
parent f661edf72d
commit 9d39235cc8
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
prometheus.scm
View file

@ -372,13 +372,18 @@ The metric with the name @var{metric-name} is fetched from the
"
(let* ((metric
(or (metrics-registry-fetch-metric registry metric-name)
(make-histogram-metric
registry
metric-name
#:buckets buckets
#:docstring docstring
#:labels labels
#:label-preset-values label-preset-values)))
(monitor
;; Check once more in case another thread has created
;; the metric while this thread was waiting for the
;; mutex
(or (metrics-registry-fetch-metric registry metric-name)
(make-histogram-metric
registry
metric-name
#:buckets buckets
#:docstring docstring
#:labels labels
#:label-preset-values label-preset-values)))))
(start-time (get-internal-real-time)))
(call-with-values
thunk