From 04732c37ca2d714652a7895709622b7ef7441422 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 15 Jan 2013 11:34:54 +0100 Subject: 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. --- build-aux/download.scm | 6 +++++- distro/packages/bootstrap.scm | 27 +++++++++++++++------------ 2 files changed, 20 insertions(+), 13 deletions(-) diff --git a/build-aux/download.scm b/build-aux/download.scm index 97a74b123a..62956378ed 100644 --- a/build-aux/download.scm +++ b/build-aux/download.scm @@ -28,7 +28,11 @@ (guix utils)) (define %url-base - "http://www.fdn.fr/~lcourtes/software/guix/packages") + "http://alpha.gnu.org/gnu/guix/bootstrap" + + ;; Alternately: + ;;"http://www.fdn.fr/~lcourtes/software/guix/packages" + ) (define (file-name->uri file) "Return the URI for FILE." 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 @@ (define (->store file) (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 @@ (define %bootstrap-binutils (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 @@ (define %bootstrap-glibc (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 @@ (define %bootstrap-gcc (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" -- cgit v1.2.3