diff options
| -rwxr-xr-x | guix/scripts/substitute.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index adc6852321..feae2df9cb 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -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. |