diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-10 09:23:12 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-10 09:23:12 +0000 |
| commit | f661edf72d2dd711dffe4313c2a9360e79b36dd1 (patch) | |
| tree | 4678d7b737bc5b21a86c5a9908179393e11017fb | |
| parent | 68820efcbd68a0aa2c25850f811ed5d7cc70029d (diff) | |
| download | prometheus-f661edf72d2dd711dffe4313c2a9360e79b36dd1.tar prometheus-f661edf72d2dd711dffe4313c2a9360e79b36dd1.tar.gz | |
Make call-with-duration-metric more precise
| -rw-r--r-- | prometheus.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/prometheus.scm b/prometheus.scm index 270ff28..e0f58f6 100644 --- a/prometheus.scm +++ b/prometheus.scm @@ -379,12 +379,13 @@ The metric with the name @var{metric-name} is fetched from the #:docstring docstring #:labels labels #:label-preset-values label-preset-values))) - (start-time (current-time))) + (start-time (get-internal-real-time))) (call-with-values thunk (lambda results (metric-observe metric - (- (current-time) start-time) + (/ (- (get-internal-real-time) start-time) + internal-time-units-per-second) #:label-values label-values) (apply values results))))) |