~ruther/guix-local

d70533cbe9210c665f86d935b61ac0aaf28d397e — Ludovic Courtès 10 years ago efa77c6
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."
1 files changed, 4 insertions(+), 3 deletions(-)

M guix/store.scm
M guix/store.scm => guix/store.scm +4 -3
@@ 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?