diff options
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index f3e3bbf..13d9ec7 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -126,13 +126,10 @@ (define registry (slot-ref datastore 'metrics-registry)) (if registry - (let* ((namespaced-metric-name - (string-append "guixbuildcoordinator_" metric-name)) - (metric - (or (metrics-registry-fetch-metric registry namespaced-metric-name) - (make-histogram-metric - registry - namespaced-metric-name))) + (let* ((metric + (or (metrics-registry-fetch-metric registry metric-name) + (make-histogram-metric registry + metric-name))) (start-time (current-time))) (let ((result (thunk))) (metric-observe metric (- (current-time) start-time)) |