diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 458b693..50dda71 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -89,14 +89,20 @@ (lambda (opt name arg result) (alist-cons 'build-failure-hook (read/eval arg) - (alist-delete 'build-failure-hook result)))))) + (alist-delete 'build-failure-hook result)))) + (option '("build-missing-inputs-hook") #t #f + (lambda (opt name arg result) + (alist-cons 'build-missing-inputs-hook + (read/eval arg) + (alist-delete 'build-missing-inputs-hook result)))))) (define %service-option-defaults ;; Alist of default option values `((port . 8745) (host . "0.0.0.0") (build-success-hook . ,default-build-success-hook) - (build-failure-hook . ,default-build-failure-hook))) + (build-failure-hook . ,default-build-failure-hook) + (build-missing-inputs-hook . ,default-build-missing-inputs-hook))) (define %agent-options (list (option '("uuid") #t #f @@ -178,8 +184,9 @@ (datastore (database-uri->datastore (assq-ref opts 'database))) (hooks - `((build-success . ,(assq-ref opts 'build-success-hook)) - (build-failure . ,(assq-ref opts 'build-failure-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))))) (when (assoc-ref opts 'update-database) (datastore-update datastore)) |