ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: image: Fix disk-image cross-compilation.

Browse source 
* gnu/system/image.scm (system-disk-image): Use the native version of the
helper packages (e2fsprogs, dosfstools, mtools, genimage, coreutils and
findutils).
This commit is contained in:
Mathieu Othacehe 2020-05-20 16:22:17 +02:00 committed by Mathieu Othacehe
parent 15135a5e13
commit 1dbd0005a1
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/system/image.scm
View file

@ -232,7 +232,7 @@ (define (partition-image partition)
(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 @@ (define (partition->config partition)
(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)))