substitute-binary: Fix recently-introduced regression.

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