01/04: vm: 'system-qemu-image' forces the use of i386/BIOS GRUB.

[guix-commits]

civodul pushed a commit to branch version-1.2.0
in repository guix.

commit 7a20c1676a8421f3ac06a2634a27c2837293df0b
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Nov 10 12:20:09 2020 +0100

    vm: 'system-qemu-image' forces the use of i386/BIOS GRUB.
    
    Fixes <https://bugs.gnu.org/44511>.
    Reported by Maxim Cournoyer <maxim.cournoyer@gmail.com>.
    
    * gnu/system/vm.scm (system-qemu-image): Add 'bootloader' field to OS.
---
 gnu/system/vm.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 21d777a..c9580f6 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -655,7 +655,14 @@ of the GNU system as described by OS."
                                'dce)))
 
 
-  (let* ((os (operating-system (inherit os)
+  (let* ((os (operating-system
+               (inherit os)
+
+               ;; As in 'virtualized-operating-system', use BIOS-style GRUB.
+               (bootloader (bootloader-configuration
+                            (bootloader grub-bootloader)
+                            (target "/dev/vda")))
+
                ;; Assume we have an initrd with the whole QEMU shebang.
 
                ;; Force our own root file system.  Refer to it by UUID so that