diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-07 15:13:13 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-07 15:13:13 +0100 |
| commit | 1a91218299e948e130bcda577f19aabccd93744e (patch) | |
| tree | 4a94c484e7bd2148950e1330d135f7b567f46056 /nar-herder/database.scm | |
| parent | 7138f044f8b4fc5d002bb03fd9b7ed8a3921696c (diff) | |
| download | nar-herder-1a91218299e948e130bcda577f19aabccd93744e.tar nar-herder-1a91218299e948e130bcda577f19aabccd93744e.tar.gz | |
Use call-with-duration-metric helper
Diffstat (limited to 'nar-herder/database.scm')
| -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 |