~ruther/guix-local

f222664058794a4cf1434854eec37684de27711b — Ludovic Courtès 11 years ago f401b1e
substitute-binary: Fix recently-introduced regression.

* guix/scripts/substitute-binary.scm (%cache-url): Fix regression
  introduced in 41c45e7.
1 files changed, 5 insertions(+), 6 deletions(-)

M guix/scripts/substitute-binary.scm
M guix/scripts/substitute-binary.scm => guix/scripts/substitute-binary.scm +5 -6
@@ 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)