aboutsummaryrefslogtreecommitdiff
path: root/gnu/system/image.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/system/image.scm')
-rw-r--r--gnu/system/image.scm28
1 files changed, 15 insertions, 13 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 1012fa6158..6e3fd51294 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -326,7 +326,8 @@ used in the image."
(image-builder
(with-imported-modules*
(let ((initializer #$(partition-initializer partition))
- (inputs '#+(list e2fsprogs fakeroot dosfstools mtools))
+ (inputs '#+(list coreutils e2fsprogs fakeroot dosfstools
+ mtools util-linux))
(image-root "tmp-root"))
(sql-schema #$schema)
@@ -338,18 +339,19 @@ used in the image."
#+(file-append glibc-utf8-locales "/lib/locale"))
(setlocale LC_ALL "en_US.utf8")
- (initializer image-root
- #:references-graphs '#$graph
- #:deduplicate? #f
- #:system-directory #$os
- #:grub-efi #+grub-efi
- #:bootloader-package
- #+(bootloader-package bootloader)
- #:bootloader-installer
- #+(bootloader-installer bootloader)
- #:bootcfg #$bootcfg
- #:bootcfg-location
- #$(bootloader-configuration-file bootloader))
+ (when initializer
+ (initializer image-root
+ #:references-graphs '#$graph
+ #:deduplicate? #f
+ #:system-directory #$os
+ #:grub-efi #+grub-efi
+ #:bootloader-package
+ #+(bootloader-package bootloader)
+ #:bootloader-installer
+ #+(bootloader-installer bootloader)
+ #:bootcfg #$bootcfg
+ #:bootcfg-location
+ #$(bootloader-configuration-file bootloader)))
(make-partition-image #$(partition->gexp partition)
#$output
image-root)))))