ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 21:59:08 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* build-aux/download.scm (file-name->uri): Remove flashner.co.il URL.
* gnu/packages/package-management.scm (boot-guile-uri): Likewise.
This commit is contained in:
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
Show stats Download patch file Download diff file Expand all files Collapse all files

20
build-aux/download.scm
View file

@ -42,17 +42,15 @@ (define (file-name->uri file)
(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)

5
gnu/packages/package-management.scm
View file

@ -61,9 +61,8 @@ (define (boot-guile-uri arch)
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"