From 7acadc1f770f2e94c2b9af463c4f6ad69b6fedb1 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 21 Dec 2020 17:23:57 +0000 Subject: Add build-canceled-send-event-to-guix-data-service-hook --- guix-build-coordinator/hooks.scm | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) (limited to 'guix-build-coordinator/hooks.scm') diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index 38f0a80..a4a8299 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -49,7 +49,8 @@ build-submitted-send-event-to-guix-data-service-hook build-started-send-event-to-guix-data-service-hook build-success-send-event-to-guix-data-service-hook - build-failure-send-event-to-guix-data-service-hook)) + build-failure-send-event-to-guix-data-service-hook + build-canceled-send-event-to-guix-data-service-hook)) (define (default-build-submitted-hook build-coordinator build-id) (display @@ -505,3 +506,21 @@ (assq-ref build-details 'end-time))))) '()))))))) + +(define (build-canceled-send-event-to-guix-data-service-hook target-url) + (lambda (build-coordinator build-id) + (define datastore + (build-coordinator-datastore build-coordinator)) + + (let ((build-details + (datastore-find-build datastore build-id))) + + (send-build-event-to-guix-data-service + target-url + `((type . build) + (event . canceled) + (build_id . ,build-id) + (derivation . ,(assq-ref build-details 'derivation-name)) + ;; TODO Maybe the time of the actual cancelation should be stored or + ;; included in the event + (timestamp . ,(current-time))))))) -- cgit v1.2.3