Better describe the default hooks

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))))