diff options
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 33b5afe..c8727c8 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -68,7 +68,9 @@ set-build-coordinator-allocator-thread!)) (define* (make-build-coordinator #:key datastore hooks - (metrics-registry (make-metrics-registry)) + (metrics-registry (make-metrics-registry + #:namespace + "guixbuildcoordinator_")) (allocation-strategy basic-build-allocation-strategy)) (let ((build-coordinator @@ -198,12 +200,12 @@ (define success-counter-metric (make-counter-metric (build-coordinator-metrics-registry build-coordinator) - "guixbuildcoordinator_allocator_allocations_total")) + "allocator_allocations_total")) (define failure-counter-metric (make-counter-metric (build-coordinator-metrics-registry build-coordinator) - "guixbuildcoordinator_allocator_failures_total")) + "allocator_failures_total")) (define (allocate-builds-loop) (while #t @@ -215,7 +217,7 @@ (atomic-box-set! allocation-needed #f))) (call-with-duration-metric (build-coordinator-metrics-registry build-coordinator) - "guixbuildcoordinator_allocate_builds_duration_seconds" + "allocate_builds_duration_seconds" (lambda () (with-exception-handler (lambda (exn) @@ -270,13 +272,13 @@ (define success-counter-metric (make-counter-metric (build-coordinator-metrics-registry build-coordinator) - "guixbuildcoordinator_hook_success_total" + "hook_success_total" #:labels '(event))) (define failure-counter-metric (make-counter-metric (build-coordinator-metrics-registry build-coordinator) - "guixbuildcoordinator_hook_failure_total" + "hook_failure_total" #:labels '(event))) (define (process-events event-name handler) @@ -330,7 +332,7 @@ (define (fetch-builds build-coordinator agent systems count) (call-with-duration-metric (build-coordinator-metrics-registry build-coordinator) - "guixbuildcoordinator_coordinator_fetch_builds_duration_seconds" + "coordinator_fetch_builds_duration_seconds" (lambda () (let ((update-made (datastore-update-agent-requested-systems (build-coordinator-datastore build-coordinator) @@ -393,7 +395,7 @@ (call-with-duration-metric (build-coordinator-metrics-registry build-coordinator) - "guixbuildcoordinator_coordinator_handle_build_result_duration_seconds" + "coordinator_handle_build_result_duration_seconds" (lambda () (let* ((result (assoc-ref result-json "result")) (success? (string=? result "success"))) |