From d70533cbe9210c665f86d935b61ac0aaf28d397e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 28 Mar 2016 22:18:17 +0200 Subject: 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 . * guix/store.scm (%default-substitute-urls): Prepend "mirror.hydra.gnu.org." --- guix/store.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/guix/store.scm b/guix/store.scm index ae52628545..906611658e 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -504,12 +504,13 @@ (define %stderr-error #x63787470) ; "cxtp", error reporting (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? -- cgit v1.2.3