substitute-binary: Fix recently-introduced regression.
* guix/scripts/substitute-binary.scm (%cache-url): Fix regression
introduced in 41c45e7
.
This commit is contained in:
parent
f401b1e993
commit
f222664058
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue