From 80c6863c54a5ee41c3817c7c849327fb74b11af3 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 23 May 2020 09:28:17 +0100 Subject: Count hook successes and failures --- guix-build-coordinator/coordinator.scm | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 8f8e559..78d0ea8 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -248,6 +248,18 @@ (define datastore (build-coordinator-datastore build-coordinator)) + (define success-counter-metric + (make-counter-metric + (build-coordinator-metrics-registry build-coordinator) + "guixbuildcoordinator_hook_success_total" + #:labels '(event))) + + (define failure-counter-metric + (make-counter-metric + (build-coordinator-metrics-registry build-coordinator) + "guixbuildcoordinator_hook_failure_total" + #:labels '(event))) + (parameterize (((@@ (fibers internal) current-fiber) #f)) (call-with-new-thread (lambda () @@ -270,10 +282,16 @@ ((build-id) (let ((data-location (build-data-location build-id))) (when (file-exists? data-location) - (delete-file-recursively data-location))))))) + (delete-file-recursively data-location)))))) + (metric-increment success-counter-metric + #:label-values + `((event . ,event)))) (lambda (key . args) (simple-format #t "error: running ~A hook: ~A ~A\n" event key args) + (metric-increment failure-counter-metric + #:label-values + `((event . ,event))) #f)))))))) #t) -- cgit v1.2.3