diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index 748c334e3c..b4e913a880 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -980,6 +980,10 @@ (define (client-terminal-columns) (and number (max 20 (- number 1)))))) 80)) +(define (validate-uri uri) + (unless (string->uri uri) + (leave (_ "~a: invalid URI~%") uri))) + (define (guix-substitute . args) "Implement the build daemon's substituter protocol." (mkdir-p %narinfo-cache-directory) @@ -1001,6 +1005,9 @@ (define (guix-substitute . args) (newline) (force-output (current-output-port)) + ;; Sanity-check %CACHE-URLS so we can provide a meaningful error message. + (for-each validate-uri %cache-urls) + ;; Attempt to install the client's locale, mostly so that messages are ;; suitably translated. (match (or (find-daemon-option "untrusted-locale")