diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-05-09 19:07:08 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-05-09 19:07:08 +0100 |
| commit | 27fd2486c64f24352bd60bafd66d738e46694acf (patch) | |
| tree | e0902149ec6a8a130491787d2df01ccd92983293 /scripts/guix-build-coordinator.in | |
| parent | 1ec0da100859a986e4e6c58c2edb2d238d64b170 (diff) | |
| download | build-coordinator-27fd2486c64f24352bd60bafd66d738e46694acf.tar build-coordinator-27fd2486c64f24352bd60bafd66d738e46694acf.tar.gz | |
Support passing substitute-urls when submitting a build
Diffstat (limited to 'scripts/guix-build-coordinator.in')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 3124fd6..9fa4f0d 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -85,6 +85,11 @@ (alist-cons 'ensure-all-related-derivation-outputs-have-builds #t result))) + (option '("derivation-substitute-urls") #t #f + (lambda (opt name arg result) + (alist-cons 'derivation-substitute-urls + (string-split arg #\space) + result))) (option '("defer-allocation") #f #f (lambda (opt name _ result) (alist-cons 'defer-allocation #t result))))) @@ -276,7 +281,9 @@ processed?: ~A (exit 0)))) (unless (file-exists? derivation-file) - (substitute-derivation derivation-file)) + (substitute-derivation derivation-file + #:substitute-urls + (assq-ref opts 'derivation-substitute-urls))) (let ((derivation (read-derivation-from-file derivation-file))) |