diff options
author | Ludovic Courtès <ludo@gnu.org> | 2017-07-27 16:41:42 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2017-08-28 23:51:32 +0200 |
commit | 3e5750af74a057cd3b2610edafea5b507bf67bc6 (patch) | |
tree | 2d4a23de52beffda3cdeda77baf16fb2763e8fc2 /gnu/packages/bootstrap.scm | |
parent | 4f024ef3181c5235ff11789e8c8f62722f974787 (diff) | |
download | guix-3e5750af74a057cd3b2610edafea5b507bf67bc6.tar guix-3e5750af74a057cd3b2610edafea5b507bf67bc6.tar.gz |
gnu: guix: Factorize downloads of bootstrap tarball.
* 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.
Diffstat (limited to 'gnu/packages/bootstrap.scm')
-rw-r--r-- | gnu/packages/bootstrap.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gnu/packages/bootstrap.scm b/gnu/packages/bootstrap.scm index fe3c29bae2..d1b03eb882 100644 --- a/gnu/packages/bootstrap.scm +++ b/gnu/packages/bootstrap.scm @@ -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)) |