diff options
-rw-r--r-- | nar-herder/database.scm | 15 |
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 |