diff options
Diffstat (limited to 'scripts/guix-build-coordinator.in')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 346f289..72182b1 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -186,12 +186,7 @@ ;; Alist of default option values `((agent-communication . ,%default-agent-uri) (client-communication . ,%default-client-uri) - (allocation-strategy . ,basic-build-allocation-strategy) - (build-submitted-hook . ,default-build-submitted-hook) - (build-started-hook . ,default-build-started-hook) - (build-success-hook . ,default-build-success-hook) - (build-failure-hook . ,default-build-failure-hook) - (build-missing-inputs-hook . ,default-build-missing-inputs-hook))) + (allocation-strategy . ,basic-build-allocation-strategy))) (define %agent-options (list (option '("uuid") #t #f @@ -412,9 +407,14 @@ processed?: ~A (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-with-defaults + `(,@(filter identity hooks) + ,@(remove (match-lambda + ((name . _) (assq-ref hooks name))) + %default-hooks))) (build-coordinator (make-build-coordinator #:datastore datastore - #:hooks hooks + #:hooks hooks-with-defaults #:metrics-registry metrics-registry #:allocation-strategy (assq-ref opts 'allocation-strategy)))) |