janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit b2e9a990d742165a876d50654846fe223b611e1e
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 fccdc87..536cca3 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:
;;;
@@ -90,6 +92,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."
