build: Download aarch64 bootstrap binaries from alpha.gnu.org.

* build-aux/download.scm (file-name->uri): Remove flashner.co.il URL.
* gnu/packages/package-management.scm (boot-guile-uri): Likewise.
master
Ludovic Courtès 2017-04-14 18:16:32 +02:00
parent 4e644ab8a6
commit b31b0155ea
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 11 additions and 14 deletions

View File

@ -42,17 +42,15 @@
(match (string-tokenize file (char-set-complement (char-set #\/))) (match (string-tokenize file (char-set-complement (char-set #\/)))
((_ ... system basename) ((_ ... system basename)
(string->uri (string->uri
(match system (string-append %url-base "/" system
("aarch64-linux" (match system
(string-append "http://flashner.co.il/guix/bootstrap/aarch64-linux" ("aarch64-linux"
"/20170217/" basename)) "/20170217/")
(_ (string-append %url-base "/" system ("armhf-linux"
(match system "/20150101/")
("armhf-linux" (_
"/20150101/") "/20131110/"))
(_ basename)))))
"/20131110/"))
basename)))))))
(match (command-line) (match (command-line)
((_ file expected-hash) ((_ file expected-hash)

View File

@ -61,9 +61,8 @@
arch "-linux" arch "-linux"
"/20150101/guile-2.0.11.tar.xz")) "/20150101/guile-2.0.11.tar.xz"))
((string=? "aarch64" arch) ((string=? "aarch64" arch)
(let ((suffix "/bootstrap/aarch64-linux/20170217/guile-2.0.14.tar.xz")) (string-append "http://alpha.gnu.org/gnu/guix/bootstrap/"
(list (string-append "http://alpha.gnu.org/gnu/guix" suffix) arch "-linux/20170217/guile-2.0.14.tar.xz"))
(string-append "http://flashner.co.il/guix" suffix))))
(else (else
(string-append "http://alpha.gnu.org/gnu/guix/bootstrap/" (string-append "http://alpha.gnu.org/gnu/guix/bootstrap/"
arch "-linux" arch "-linux"