2 files changed, 17 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index 9996db5..88bc85b 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -103,6 +103,7 @@
     build-started
     build-success
     build-failure
+    build-canceled
     build-missing-inputs))
 
 (define* (make-build-coordinator #:key datastore hooks
@@ -367,7 +368,13 @@
            "cannot cancel and already processed build"))))
 
      (datastore-remove-build-from-allocation-plan datastore uuid)
-     (datastore-cancel-build datastore uuid)))
+     (datastore-cancel-build datastore uuid)
+     (datastore-insert-unprocessed-hook-event datastore
+                                              "build-canceled"
+                                              (list uuid))))
+
+  (build-coordinator-prompt-hook-processing-for-event build-coordinator
+                                                      'build-canceled)
   #t)
 
 (define* (new-agent datastore
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm
index cd57168..38f0a80 100644
--- a/guix-build-coordinator/hooks.scm
+++ b/guix-build-coordinator/hooks.scm
@@ -39,6 +39,7 @@
             build-success-publish-hook
             build-success-s3-publish-hook
             default-build-failure-hook
+            default-build-canceled-hook
             build-failure-retry-hook
             build-recompress-log-file-hook
             default-build-missing-inputs-hook
@@ -221,6 +222,13 @@
                     build-id agent-id)
      (current-error-port))))
 
+(define (default-build-canceled-hook build-coordinator build-id)
+  (display
+   (simple-format #f
+                  "build ~A canceled\n"
+                  build-id)
+   (current-error-port)))
+
 (define* (build-failure-retry-hook #:key (retries 2))
   (lambda (build-coordinator build-id)
     (define datastore
@@ -402,6 +410,7 @@
     (build-started        . ,default-build-started-hook)
     (build-success        . ,default-build-success-hook)
     (build-failure        . ,default-build-failure-hook)
+    (build-canceled       . ,default-build-canceled-hook)
     (build-missing-inputs . ,default-build-missing-inputs-hook)))
 
 (define (build-submitted-send-event-to-guix-data-service-hook target-url)