aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-02-18 18:59:05 +0000
committerChristopher Baines <mail@cbaines.net>2021-02-18 18:59:05 +0000
commit6d2c124d48da367832bbff5a68758b94c10314bb (patch)
tree8ce3cbaa64c643451b20c9e5cbcc9eb6d573667a /scripts
parentc72d2a172fafa591da3b73274ed70723d5fbf360 (diff)
downloadbuild-coordinator-6d2c124d48da367832bbff5a68758b94c10314bb.tar
build-coordinator-6d2c124d48da367832bbff5a68758b94c10314bb.tar.gz
Stop hardcoding hook names in the argument processing
Diffstat (limited to 'scripts')
-rw-r--r--scripts/guix-build-coordinator.in13
1 files changed, 6 insertions, 7 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in
index 3992c6f..f40dc01 100644
--- a/scripts/guix-build-coordinator.in
+++ b/scripts/guix-build-coordinator.in
@@ -760,13 +760,12 @@ tags:
(datastore (database-uri->datastore
(assq-ref opts 'database)
#: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))
- (build-missing-inputs . ,(assq-ref opts 'build-missing-inputs-hook))))
+ (hooks (filter-map
+ (lambda (name)
+ (and=> (assq-ref opts name)
+ (lambda (value)
+ (cons name value))))
+ %known-hooks))
(hooks-with-defaults
`(,@(filter cdr hooks)
,@(remove (match-lambda