janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit b6dfdd79b5634ed04f923aaf714eb2a8315dbac8
Author: Jan (janneke) Nieuwenhuizen <[email protected]>
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."
