nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/store.scm
View File

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