Use call-with-duration-metric helper

1 files changed, 3 insertions, 12 deletions

diff --git a/nar-herder/database.scm b/nar-herder/database.scm
index 04c66c3..e0c6fe8 100644
--- a/nar-herder/database.scm
+++ b/nar-herder/database.scm
@@ -392,18 +392,9 @@ PRAGMA optimize;")))
     (string-append "database_" thing "_duration_seconds"))
 
   (if registry
-      (let* ((metric
-              (or (metrics-registry-fetch-metric registry metric-name)
-                  (make-histogram-metric registry
-                                         metric-name)))
-             (start-time (get-internal-real-time)))
-        (call-with-values
-            thunk
-          (lambda vals
-            (metric-observe metric
-                            (/ (- (get-internal-real-time) start-time)
-                               internal-time-units-per-second))
-            (apply values vals))))
+      (call-with-duration-metric registry
+                                 metric-name
+                                 thunk)
       (thunk)))
 
 (define %current-transaction-proc