diff options
author | Efraim Flashner <efraim@flashner.co.il> | 2023-06-13 13:41:51 +0300 |
---|---|---|
committer | Efraim Flashner <efraim@flashner.co.il> | 2023-06-19 16:31:32 +0300 |
commit | da81784d60d495fc70fe4b113e525b7a4006789a (patch) | |
tree | eb07dcf9872af87d2d119385f4f8cc97576b4a9f | |
parent | f2be1ea06af6a0bf02c23e5bdf90b1e09c5d39f0 (diff) | |
download | guix-patches-da81784d60d495fc70fe4b113e525b7a4006789a.tar guix-patches-da81784d60d495fc70fe4b113e525b7a4006789a.tar.gz |
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.
-rw-r--r-- | gnu/system/image.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm index 958ba5cbb2..81346495c2 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -418,7 +418,14 @@ used in the image." (with-imported-modules* (let ((initializer (or #$(partition-initializer 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")) (sql-schema #$schema) |