summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-11-10 12:20:09 +0100
committerLudovic Courtès <ludo@gnu.org>2020-11-10 12:20:09 +0100
commit7a20c1676a8421f3ac06a2634a27c2837293df0b (patch)
tree2e3f277d65bc8e5aad1bfdbed051dda9498b903c
parentb51da3ccef74e5842b87e39eea839e36831e844e (diff)
downloadguix-7a20c1676a8421f3ac06a2634a27c2837293df0b.tar.gz
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.
-rw-r--r--gnu/system/vm.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 21d777a3fe..c9580f6e7f 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