diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-02-02 08:43:08 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-02 08:43:08 +0000 |
| commit | 4f01efca0e44da0f4c4677d47c5002daaca4d446 (patch) | |
| tree | 83c15d25f4059a8847711ed3697573b4b0bd8706 /scripts | |
| parent | 54fc4c2faf9e3c5693e85705478377cd37d60465 (diff) | |
| download | build-coordinator-4f01efca0e44da0f4c4677d47c5002daaca4d446.tar build-coordinator-4f01efca0e44da0f4c4677d47c5002daaca4d446.tar.gz | |
Allow specifying the build-canceled-hook on the command line
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 3c4cb29..7d482d0 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -309,6 +309,11 @@ (alist-cons 'build-submitted-hook (read/eval arg) (alist-delete 'build-submitted-hook result)))) + (option '("build-canceled-hook") #t #f + (lambda (opt name arg result) + (alist-cons 'build-canceled-hook + (read/eval arg) + (alist-delete 'build-canceled-hook result)))) (option '("build-started-hook") #t #f (lambda (opt name arg result) (alist-cons 'build-started-hook @@ -768,6 +773,7 @@ tags: #:metrics-registry metrics-registry)) (hooks `((build-submitted . ,(assq-ref opts 'build-submitted-hook)) + (build-canceled . ,(assq-ref opts 'build-canceled-hook)) (build-started . ,(assq-ref opts 'build-started-hook)) (build-success . ,(assq-ref opts 'build-success-hook)) (build-failure . ,(assq-ref opts 'build-failure-hook)) |