summaryrefslogtreecommitdiff
path: root/gnu/system/image.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2020-05-20 16:22:17 +0200
committerMathieu Othacehe <othacehe@gnu.org>2020-05-26 10:00:08 +0200
commit1dbd0005a1312e88f449626142895f1ffb0bee60 (patch)
treec6fd4df8352f5a96da62b9fa0a9acd7e318a9730 /gnu/system/image.scm
parent15135a5e134f119c5467f0509f09dace60c63832 (diff)
system: image: Fix disk-image cross-compilation.
* gnu/system/image.scm (system-disk-image): Use the native version of the helper packages (e2fsprogs, dosfstools, mtools, genimage, coreutils and findutils).
Diffstat (limited to 'gnu/system/image.scm')
-rw-r--r--gnu/system/image.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index adc2b3c221..6b5a36ffc6 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -232,7 +232,7 @@ used in the image."
(type (partition-file-system partition))
(image-builder
(with-imported-modules*
- (let ((inputs '#$(list e2fsprogs dosfstools mtools)))
+ (let ((inputs '#+(list e2fsprogs dosfstools mtools)))
(set-path-environment-variable "PATH" '("bin" "sbin") inputs)
(make-partition-image #$(partition->gexp partition)
#$output
@@ -275,7 +275,7 @@ image ~a {
(let* ((substitutable? (image-substitutable? image))
(builder
(with-imported-modules*
- (let ((inputs '#$(list genimage coreutils findutils)))
+ (let ((inputs '#+(list genimage coreutils findutils)))
(set-path-environment-variable "PATH" '("bin" "sbin") inputs)
(genimage #$(image->genimage-cfg image) #$output))))
(image-dir (computed-file "image-dir" builder)))