store: Prepend mirror.hydra.gnu.org to %DEFAULT-SUBSTITUTE-URLS.

This allows GuixSD to default to the right list of URLs, with
mirror.hydra.gnu.org coming first.

Reported by Chris Marusich <cmmarusich@gmail.com>.

* guix/store.scm (%default-substitute-urls): Prepend
"mirror.hydra.gnu.org."
This commit is contained in:
Ludovic Courtès 2016-03-28 22:18:17 +02:00
parent efa77c6c92
commit d70533cbe9
1 changed files with 4 additions and 3 deletions

View File

@ -504,12 +504,13 @@ encoding conversion errors."
(status k))))))))
(define %default-substitute-urls
;; Default list of substituters. This is *not* the list used by
;; 'guix-daemon', and few clients use it ('guix build --log-file' uses it.)
;; Default list of substituters. This is *not* the list baked in
;; 'guix-daemon', but it is used by 'guix-service-type' and and a couple of
;; clients ('guix build --log-file' uses it.)
(map (if (false-if-exception (resolve-interface '(gnutls)))
(cut string-append "https://" <>)
(cut string-append "http://" <>))
'("hydra.gnu.org")))
'("mirror.hydra.gnu.org" "hydra.gnu.org")))
(define* (set-build-options server
#:key keep-failed? keep-going? fallback?