diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-08-31 23:27:26 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-09-11 11:10:21 +0200 |
| commit | 218f6eccafa8172221cf7efd5262107233e7a587 (patch) | |
| tree | 86b62016dac6f6e9631809215678df8a98a69611 /tests/substitute.scm | |
| parent | 79228a52d2561c40be2cc2ac9873fcc7a38cbb48 (diff) | |
| download | patches-218f6eccafa8172221cf7efd5262107233e7a587.tar patches-218f6eccafa8172221cf7efd5262107233e7a587.tar.gz | |
substitute: Make substitute URLs a SRFI-39 parameter.
* guix/scripts/substitute.scm (%cache-urls): Rename to...
(%default-substitute-urls): ... this.
(substitute-urls): New variable.
(guix-substitute): Use it instead of %CACHE-URLS.
* tests/substitute.scm: Likewise.
Diffstat (limited to 'tests/substitute.scm')
| -rw-r--r-- | tests/substitute.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/substitute.scm b/tests/substitute.scm index 69b272f2bb..b1d0fe9316 100644 --- a/tests/substitute.scm +++ b/tests/substitute.scm @@ -167,8 +167,7 @@ a file for NARINFO." (call-with-narinfo narinfo (lambda () body ...))) ;; Transmit these options to 'guix substitute'. -(set! (@@ (guix scripts substitute) %cache-urls) - (list (getenv "GUIX_BINARY_SUBSTITUTE_URL"))) +(substitute-urls (list (getenv "GUIX_BINARY_SUBSTITUTE_URL"))) (test-equal "query narinfo without signature" "" ; not substitutable |