From f661edf72d2dd711dffe4313c2a9360e79b36dd1 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 10 Dec 2020 09:23:12 +0000
Subject: Make call-with-duration-metric more precise

---
 prometheus.scm | 5 +++--
 1 file 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)))))
-- 
cgit v1.2.3