me
/
guix
Archived
1
0
Fork 0
Code

vm: 'qemu-image' uses the native partitioning tools and bootloader. 

* gnu/system/vm.scm (qemu-image): Use #+ for Parted, the bootloader, etc.
master
Ludovic Courtès 2020-05-27 23:08:15 +02:00
parent b347723445
commit 96cb3f8a29
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/system/vm.scm
View File

@ -345,7 +345,7 @@ system that is passed to 'populate-root-file-system'."
(setlocale LC_ALL "en_US.utf8") (setlocale LC_ALL "en_US.utf8")
(let ((inputs (let ((inputs
'#$(append (list parted e2fsprogs dosfstools) '#+(append (list parted e2fsprogs dosfstools)
(map canonical-package (map canonical-package
(list sed grep coreutils findutils gawk)))) (list sed grep coreutils findutils gawk))))
@ -422,12 +422,12 @@ system that is passed to 'populate-root-file-system'."
#:partitions partitions #:partitions partitions
#:grub-efi grub-efi #:grub-efi grub-efi
#:bootloader-package #:bootloader-package
#$(bootloader-package bootloader) #+(bootloader-package bootloader)
#:bootcfg #$bootcfg-drv #:bootcfg #$bootcfg-drv
#:bootcfg-location #:bootcfg-location
#$(bootloader-configuration-file bootloader) #$(bootloader-configuration-file bootloader)
#:bootloader-installer #:bootloader-installer
#$(bootloader-installer bootloader))))))) #+(bootloader-installer bootloader)))))))
#:system system #:system system
#:make-disk-image? #t #:make-disk-image? #t
#:disk-image-size disk-image-size #:disk-image-size disk-image-size