From 4f01efca0e44da0f4c4677d47c5002daaca4d446 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 2 Feb 2021 08:43:08 +0000 Subject: Allow specifying the build-canceled-hook on the command line --- scripts/guix-build-coordinator.in | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'scripts/guix-build-coordinator.in') 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)) -- cgit v1.2.3