scripts: substitute: Fix discover option.

The discover option can be unset or set to "yes/no". Handle both cases.

* guix/scripts/substitute.scm (%local-substitute-urls): Fix discover option.
This commit is contained in:
Mathieu Othacehe 2020-12-04 14:25:57 +01:00
parent a59aaad6dd
commit 79fd9f4026
No known key found for this signature in database
GPG Key ID: 8354763531769CA6

@ -1103,9 +1103,11 @@ is shorter than MAX elements, then it is directly returned."
(define %local-substitute-urls
;; If the following option is passed to the daemon, use the substitutes list
;; provided by "guix discover" process.
(if (find-daemon-option "discover")
(randomize-substitute-urls (read-substitute-urls))
'()))
(let* ((option (find-daemon-option "discover"))
(discover? (and option (string=? option "yes"))))
(if discover?
(randomize-substitute-urls (read-substitute-urls))
'())))
(define substitute-urls
;; List of substitute URLs.