summary refs log tree commit diff
path: root/gnu/system
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2017-07-21 01:06:48 +0200
committerDanny Milosavljevic <dannym@scratchpost.org>2017-08-03 18:13:03 +0200
commitcf189709bcbc96e0e24c132f2a55a5347531ab44 (patch)
tree5be2bed088726f83b51af7c71b5af29b2d5a3ba9 /gnu/system
parent2267e4d3f64c9224997f8d48d69c505fa91c9aa6 (diff)
downloadguix-cf189709bcbc96e0e24c132f2a55a5347531ab44.tar.gz
vm: Use grub-hybrid's grub-mkrescue.
* gnu/system/vm.scm (system-disk-image): Use grub-hybrid's grub-mkrescue.
* gnu/bootlader/grub.scm (grub-mkrescue-bootloader): New variable.
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/vm.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 90d29b0783..4494af0031 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -49,6 +49,7 @@
   #:use-module (gnu packages admin)
 
   #:use-module (gnu bootloader)
+  #:use-module ((gnu bootloader grub) #:select (grub-mkrescue-bootloader))
   #:use-module (gnu system shadow)
   #:use-module (gnu system pam)
   #:use-module (gnu system linux-initrd)
@@ -369,6 +370,12 @@ to USB sticks meant to be read-only."
                                #:volatile-root? #t
                                rest)))
 
+              (bootloader (if (string=? "iso9660" file-system-type)
+                              (bootloader-configuration
+                                (inherit (operating-system-bootloader os))
+                                (bootloader grub-mkrescue-bootloader))
+                              (operating-system-bootloader os)))
+
               ;; Force our own root file system.
               (file-systems (cons (file-system
                                     (mount-point "/")