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))
|
||||
|
||||
(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)
|
||||
|
|
Loading…
Reference in New Issue