amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: guix: Factorize downloads of bootstrap tarball.

Browse source 
* gnu/packages/bootstrap.scm (bootstrap-guile-origin): New procedure.
* gnu/packages/package-management.scm (guix)[inputs]: Remove
'boot-guile' procedure; use 'bootstrap-guile-origin' instead.
This commit is contained in:
Ludovic Courtès 2017-07-27 16:41:42 +02:00
parent 4f024ef318
commit 3e5750af74
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 22 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/bootstrap.scm
View file

@ -40,6 +40,8 @@
package-with-bootstrap-guile
glibc-dynamic-linker
bootstrap-guile-origin
%bootstrap-guile
%bootstrap-coreutils&co
%bootstrap-binutils
@ -226,6 +228,14 @@ successful, or false to signal an error."
("aarch64-linux"
(base32 "1giy2aprjmn5fp9c4s9r125fljw4wv6ixy5739i5bffw4jgr0f9r"))))
(define (bootstrap-guile-origin system)
"Return an <origin> object for the Guile tarball of SYSTEM."
(origin
(method url-fetch)
(uri (map (cute string-append <> (bootstrap-guile-url-path system))
%bootstrap-base-urls))
(sha256 (bootstrap-guile-hash system))))
(define (download-bootstrap-guile store system)
"Return a derivation that downloads the bootstrap Guile tarball for SYSTEM."
(let* ((path (bootstrap-guile-url-path system))