[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/08: pack: Do not cross-compile the image building tools.
From: |
guix-commits |
Subject: |
01/08: pack: Do not cross-compile the image building tools. |
Date: |
Thu, 14 May 2020 11:22:09 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit a89df83c79340b5d0dfefcc6250dc69d502f3f5d
Author: Ludovic Courtès <address@hidden>
AuthorDate: Thu May 14 12:50:18 2020 +0200
pack: Do not cross-compile the image building tools.
Until now, something like:
guix pack -f docker --target=arm-linux-gnueabihf
would attempt to cross-compile tar.
* guix/scripts/pack.scm (self-contained-tarball): Pass #:target to
'gexp->derivation'.
(squashfs-image): Use #+ instead of #$ for ARCHIVER. Use 'file-append'
instead of 'string-append'. Pass #:target to 'gexp->derivation'.
(docker-image): Likewise.
---
guix/scripts/pack.scm | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 580f696..11d0653 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -286,6 +286,7 @@ added to the pack."
(gexp->derivation (string-append name ".tar"
(compressor-extension compressor))
build
+ #:target target
#:references-graphs `(("profile" ,profile))))
(define (singularity-environment-file profile)
@@ -384,7 +385,7 @@ added to the pack."
;; Reset all UIDs and GIDs.
"-force-uid" "0" "-force-gid" "0")))
- (setenv "PATH" (string-append #$archiver "/bin"))
+ (setenv "PATH" #+(file-append archiver "/bin"))
;; We need an empty file in order to have a valid file argument when
;; we reparent the root file system. Read on for why that's
@@ -484,6 +485,7 @@ added to the pack."
(compressor-extension compressor)
".squashfs")
build
+ #:target target
#:references-graphs `(("profile" ,profile))))
(define* (docker-image name profile
@@ -558,7 +560,7 @@ the image."
((_) str)
((names ... _) (loop names))))))) ;drop one entry
- (setenv "PATH" (string-append #$archiver "/bin"))
+ (setenv "PATH" #+(file-append archiver "/bin"))
(build-docker-image #$output
(map store-info-item
@@ -574,12 +576,13 @@ the image."
#~(list (string-append #$profile "/"
#$entry-point)))
#:extra-files directives
- #:compressor '#$(compressor-command compressor)
+ #:compressor '#+(compressor-command compressor)
#:creation-time (make-time time-utc 0 1))))))
(gexp->derivation (string-append name ".tar"
(compressor-extension compressor))
build
+ #:target target
#:references-graphs `(("profile" ,profile))))
- branch master updated (19e8a75 -> febd1fc), guix-commits, 2020/05/14
- 03/08: store: 'mapm/accumulate-builds' preserves '%current-target-system'., guix-commits, 2020/05/14
- 04/08: pack: Wrapper honors 'GUIX_EXECUTION_ENGINE' environment variable., guix-commits, 2020/05/14
- 05/08: pack: Factorize store references in wrapper., guix-commits, 2020/05/14
- 08/08: news: Add news entry for 'guix pack -RR' and Fakechroot., guix-commits, 2020/05/14
- 06/08: gnu: Add fakechroot., guix-commits, 2020/05/14
- 07/08: pack: Add relocation via ld.so and fakechroot., guix-commits, 2020/05/14
- 01/08: pack: Do not cross-compile the image building tools.,
guix-commits <=
- 02/08: packages: Ensure bags are insensitive to '%current-target-system'., guix-commits, 2020/05/14