diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-03-18 22:55:54 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-03-18 22:55:54 +0100 |
| commit | f222664058794a4cf1434854eec37684de27711b (patch) | |
| tree | 27b40a1254a49f2e90f794f548dfdaad95b9c250 | |
| parent | f401b1e9934a6594d6d7586922aa987e0b24839b (diff) | |
| download | guix-f222664058794a4cf1434854eec37684de27711b.tar.gz | |
substitute-binary: Fix recently-introduced regression.
* guix/scripts/substitute-binary.scm (%cache-url): Fix regression introduced in 41c45e7.
| -rwxr-xr-x | guix/scripts/substitute-binary.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/guix/scripts/substitute-binary.scm b/guix/scripts/substitute-binary.scm index 50e3db2fb9..a4d153d4a0 100755 --- a/guix/scripts/substitute-binary.scm +++ b/guix/scripts/substitute-binary.scm @@ -631,12 +631,11 @@ found." (assoc-ref (daemon-options) option)) (define %cache-url - (match (and=> (string-append - ;; TODO: Uncomment the following lines when multiple - ;; substitute sources are supported. - ;; (find-daemon-option "untrusted-substitute-urls") ;client - ;; " " - (find-daemon-option "substitute-urls")) ;admin + (match (and=> ;; TODO: Uncomment the following lines when multiple + ;; substitute sources are supported. + ;; (find-daemon-option "untrusted-substitute-urls") ;client + ;; " " + (find-daemon-option "substitute-urls") ;admin string-tokenize) ((url) url) |