diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-01-15 11:34:54 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-15 11:34:54 +0100 |
commit | 04732c37ca2d714652a7895709622b7ef7441422 (patch) | |
tree | 10d96c99219c8fc50f471c92afa01fa9772ae4d5 /distro/packages | |
parent | e2034de5d0b16827d2b9353da56480780e3bc1bf (diff) | |
download | guix-04732c37ca2d714652a7895709622b7ef7441422.tar.gz |
distro: Fetch bootstrap binaries from alpha.gnu.org.
* build-aux/download.scm (%url-base): Change to alpha.gnu.org. * distro/packages/bootstrap.scm (%bootstrap-base-url): Rename to... (%bootstrap-base-urls): ... this. Add alpha.gnu.org as the first URL. Update users.
Diffstat (limited to 'distro/packages')
-rw-r--r-- | distro/packages/bootstrap.scm | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/distro/packages/bootstrap.scm b/distro/packages/bootstrap.scm index 9bf815b2d7..27183162b5 100644 --- a/distro/packages/bootstrap.scm +++ b/distro/packages/bootstrap.scm @@ -194,18 +194,19 @@ $out/bin/guile --version~%" (home-page #f) (license lgpl3+)))) -(define %bootstrap-base-url +(define %bootstrap-base-urls ;; This is where the initial binaries come from. - "http://www.fdn.fr/~lcourtes/software/guix/packages") + '("http://alpha.gnu.org/gnu/guix/bootstrap" + "http://www.fdn.fr/~lcourtes/software/guix/packages")) (define %bootstrap-coreutils&co (package-from-tarball "bootstrap-binaries" (lambda (system) (origin (method url-fetch) - (uri (string-append - %bootstrap-base-url "/" - system "/20130105/static-binaries.tar.xz")) + (uri (map (cut string-append <> "/" system + "/20130105/static-binaries.tar.xz") + %bootstrap-base-urls)) (sha256 (match system ("x86_64-linux" @@ -222,9 +223,9 @@ $out/bin/guile --version~%" (lambda (system) (origin (method url-fetch) - (uri (string-append - %bootstrap-base-url "/" - system "/20130105/binutils-2.22.tar.xz")) + (uri (map (cut string-append <> "/" system + "/20130105/binutils-2.22.tar.xz") + %bootstrap-base-urls)) (sha256 (match system ("x86_64-linux" @@ -276,8 +277,9 @@ $out/bin/guile --version~%" (bootstrap-origin (origin (method url-fetch) - (uri (string-append %bootstrap-base-url "/" system - "/20130105/glibc-2.17.tar.xz")) + (uri (map (cut string-append <> "/" system + "/20130105/glibc-2.17.tar.xz") + %bootstrap-base-urls)) (sha256 (match system ("x86_64-linux" @@ -347,8 +349,9 @@ exec ~a/bin/.gcc-wrapped -B~a/lib \ (bootstrap-origin (origin (method url-fetch) - (uri (string-append %bootstrap-base-url "/" system - "/20130105/gcc-4.7.2.tar.xz")) + (uri (map (cut string-append <> "/" system + "/20130105/gcc-4.7.2.tar.xz") + %bootstrap-base-urls)) (sha256 (match system ("x86_64-linux" |