diff options
author | Christopher Baines <mail@cbaines.net> | 2020-12-04 18:58:07 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-12-04 18:58:07 +0000 |
commit | 5c8cf7916078b2e65621472a044020eb27e5034f (patch) | |
tree | fdec1fc1195a5e1ac74330a72fe2196119224647 /guix-build-coordinator/hooks.scm | |
parent | f757ac79ad0825159235240e3a37a83915fd4ccd (diff) | |
download | build-coordinator-5c8cf7916078b2e65621472a044020eb27e5034f.tar build-coordinator-5c8cf7916078b2e65621472a044020eb27e5034f.tar.gz |
Avoid errors when derivation for missing input can't be found
I've seen this happen with derivation source files.
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
-rw-r--r-- | guix-build-coordinator/hooks.scm | 39 |
1 files changed, 21 insertions, 18 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index 488b9bd..b09cefe 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -349,24 +349,27 @@ datastore (assq-ref build 'derivation-name) missing-input))) - (unless input-derivation - (error "couldn't find a derivation for " missing-input)) - - (let ((builds-for-output - (datastore-list-builds-for-output datastore - missing-input))) - (if (null? builds-for-output) - (begin - (simple-format #t - "submitting build for ~A\n" - input-derivation) - (submit-build build-coordinator - input-derivation - #:tags (datastore-fetch-build-tags - datastore - build-id))) - (simple-format #t "~A builds exist for ~A, skipping\n" - (length builds-for-output) + (if input-derivation + (let ((builds-for-output + (datastore-list-builds-for-output datastore + missing-input))) + (if (null? builds-for-output) + (begin + (simple-format #t + "submitting build for ~A\n" + input-derivation) + (submit-build build-coordinator + input-derivation + #:tags (datastore-fetch-build-tags + datastore + build-id))) + (simple-format #t "~A builds exist for ~A, skipping\n" + (length builds-for-output) + missing-input))) + (begin + (simple-format (current-error-port) + "warning: default-build-missing-inputs-hook: + couldn't find a derivation for ~A\n" missing-input))))) missing-inputs))) |