Count hook successes and failures

1 files changed, 19 insertions, 1 deletions

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)