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

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit d70533cbe9210c665f86d935b61ac0aaf28d397e
Author: Ludovic Courtès <address@hidden>
Date:   Mon Mar 28 22:18:17 2016 +0200

    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 <address@hidden>.
    
    * guix/store.scm (%default-substitute-urls): Prepend
    "mirror.hydra.gnu.org."
---
 guix/store.scm |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix/store.scm b/guix/store.scm
index ae52628..9066116 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -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?