ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-14 19:05:10 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
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 @@ (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?