gnu: image: Build partitions with only necessary inputs.
* gnu/system/image.scm (system-disk-image)[partition-image]: Adjust the inputs used by the image-builder to only use the packages necessary to build that partition.
parent
f2be1ea06a
commit
da81784d60
|
@ -418,7 +418,14 @@ used in the image."
|
||||||
(with-imported-modules*
|
(with-imported-modules*
|
||||||
(let ((initializer (or #$(partition-initializer partition)
|
(let ((initializer (or #$(partition-initializer partition)
|
||||||
initialize-root-partition))
|
initialize-root-partition))
|
||||||
(inputs '#+(list e2fsprogs fakeroot dosfstools mtools))
|
(inputs '#+(cond
|
||||||
|
((string-prefix? "ext" type)
|
||||||
|
(list e2fsprogs fakeroot))
|
||||||
|
((or (string=? type "vfat")
|
||||||
|
(string-prefix? "fat" type))
|
||||||
|
(list dosfstools fakeroot mtools))
|
||||||
|
(else
|
||||||
|
'())))
|
||||||
(image-root "tmp-root"))
|
(image-root "tmp-root"))
|
||||||
(sql-schema #$schema)
|
(sql-schema #$schema)
|
||||||
|
|
||||||
|
|
Reference in New Issue