summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-03-18 22:55:54 +0100
committerLudovic Courtès <ludo@gnu.org>2015-03-18 22:55:54 +0100
commitf222664058794a4cf1434854eec37684de27711b (patch)
tree27b40a1254a49f2e90f794f548dfdaad95b9c250 /guix/scripts
parentf401b1e9934a6594d6d7586922aa987e0b24839b (diff)
substitute-binary: Fix recently-introduced regression.
* guix/scripts/substitute-binary.scm (%cache-url): Fix regression introduced in 41c45e7.
Diffstat (limited to 'guix/scripts')
-rwxr-xr-xguix/scripts/substitute-binary.scm11
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)