diff options
author | Christopher Baines <mail@cbaines.net> | 2020-12-21 17:08:53 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-12-21 17:08:53 +0000 |
commit | da261a3a37f1c7260b727771c480f5084d95391b (patch) | |
tree | b600c54facbc2bf3d4a19a011bf33de2fd93a706 /guix-build-coordinator/hooks.scm | |
parent | e61b3883c65c896c08d2b70652b0b7b15703d583 (diff) | |
download | build-coordinator-da261a3a37f1c7260b727771c480f5084d95391b.tar build-coordinator-da261a3a37f1c7260b727771c480f5084d95391b.tar.gz |
Add a hook for when builds are canceled
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) |