aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-02-02 08:43:08 +0000
committerChristopher Baines <mail@cbaines.net>2021-02-02 08:43:08 +0000
commit4f01efca0e44da0f4c4677d47c5002daaca4d446 (patch)
tree83c15d25f4059a8847711ed3697573b4b0bd8706 /scripts
parent54fc4c2faf9e3c5693e85705478377cd37d60465 (diff)
downloadbuild-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.in6
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))