diff options
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
-rw-r--r-- | guix-build-coordinator/hooks.scm | 9 |
1 files changed, 9 insertions, 0 deletions
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) |