diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-08 11:50:37 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-08 11:50:37 +0100 |
commit | bda7d58853ed4fba976cac92a70c4dc68db263aa (patch) | |
tree | 1e2e66515c554a9b424aaa49f1f2315aafb466fd /scripts | |
parent | 8521730bed4bb9d17cd76def17d06d089d46d91f (diff) | |
download | build-coordinator-bda7d58853ed4fba976cac92a70c4dc68db263aa.tar build-coordinator-bda7d58853ed4fba976cac92a70c4dc68db263aa.tar.gz |
Support providing different substitute URLs for different purposes
The agent looks to substitute the derivation, and also substitute inputs, so
allow providing different substitute URLs for each of these purposes. This can
make substituting faster in the case where you have a different source of
substitutes for derivations and non-derivation items.
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/guix-build-coordinator-agent.in | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index 89bd375..d75b66c 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -47,6 +47,16 @@ (lambda (opt name arg result) (alist-cons 'substitute-urls (string-split arg #\space) + result))) + (option '("derivation-substitute-urls") #t #f + (lambda (opt name arg result) + (alist-cons 'derivation-substitute-urls + (string-split arg #\space) + result))) + (option '("non-derivation-substitute-urls") #t #f + (lambda (opt name arg result) + (alist-cons 'non-derivation-substitute-urls + (string-split arg #\space) result))))) (define %option-defaults @@ -71,4 +81,7 @@ (run-agent (assq-ref opts 'uuid) (assq-ref opts 'coordinator) (assq-ref opts 'password) - (assq-ref opts 'substitute-urls))) + (or (assq-ref opts 'derivation-substitute-urls) + (assq-ref opts 'substitute-urls)) + (or (assq-ref opts 'non-derivation-substitute-urls) + (assq-ref opts 'substitute-urls)))) |