07/21: system: hurd: Add hurd-grub-minimal-bootloader.

[guix-commits]

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit b6dfdd79b5634ed04f923aaf714eb2a8315dbac8
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Sat Apr 25 14:56:05 2020 +0200

    system: hurd: Add hurd-grub-minimal-bootloader.
    
    * gnu/system/hurd.scm (hurd-grub-minimal-bootloader): New public variable.
---
 gnu/system/hurd.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/system/hurd.scm b/gnu/system/hurd.scm
index 02e57e5..f8939c2 100644
--- a/gnu/system/hurd.scm
+++ b/gnu/system/hurd.scm
@@ -21,6 +21,7 @@
   #:use-module (guix gexp)
   #:use-module (guix profiles)
   #:use-module (guix utils)
+  #:use-module (gnu bootloader)
   #:use-module (gnu bootloader grub)
   #:use-module (gnu packages admin)
   #:use-module (gnu packages base)
@@ -33,7 +34,8 @@
   #:use-module (gnu packages less)
   #:use-module (gnu system vm)
   #:export (cross-hurd-image
-            hurd-grub-configuration-file))
+            hurd-grub-configuration-file
+            hurd-grub-minimal-bootloader))
 
 ;;; Commentary:
 ;;;
@@ -85,6 +87,11 @@ menuentry \"GNU\" {
                                  #$mach #$mach #$hurd
                                  #$libc #$hurd))))))
 
+(define hurd-grub-minimal-bootloader
+  (bootloader
+   (inherit grub-minimal-bootloader)
+   (configuration-file-generator hurd-grub-configuration-file)))
+
 (define* (cross-hurd-image #:key (hurd hurd) (gnumach gnumach))
   "Return a cross-built GNU/Hurd image."