substitute-binary: Fix recently-introduced regression.

* guix/scripts/substitute-binary.scm (%cache-url): Fix regression
  introduced in 41c45e7.
This commit is contained in:
Ludovic Courtès 2015-03-18 22:55:54 +01:00
parent f401b1e993
commit f222664058
1 changed files with 5 additions and 6 deletions

View File

@ -631,12 +631,11 @@ found."
(assoc-ref (daemon-options) option)) (assoc-ref (daemon-options) option))
(define %cache-url (define %cache-url
(match (and=> (string-append (match (and=> ;; TODO: Uncomment the following lines when multiple
;; TODO: Uncomment the following lines when multiple
;; substitute sources are supported. ;; substitute sources are supported.
;; (find-daemon-option "untrusted-substitute-urls") ;client ;; (find-daemon-option "untrusted-substitute-urls") ;client
;; " " ;; " "
(find-daemon-option "substitute-urls")) ;admin (find-daemon-option "substitute-urls") ;admin
string-tokenize) string-tokenize)
((url) ((url)
url) url)