01/01: substitute-binary: Fix recently-introduced regression.

[Ludovic Court�s]

civodul pushed a commit to branch master
in repository guix.

commit f222664058794a4cf1434854eec37684de27711b
Author: Ludovic Courtès <address@hidden>
Date:   Wed Mar 18 22:55:54 2015 +0100

    substitute-binary: Fix recently-introduced regression.
    
    * guix/scripts/substitute-binary.scm (%cache-url): Fix regression
      introduced in 41c45e7.
---
 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 50e3db2..a4d153d 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)