[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#42122] [PATCH 3/3] guix system: "describe" displays multiboot info.
|
From: |
Jan (janneke) Nieuwenhuizen |
|
Subject: |
[bug#42122] [PATCH 3/3] guix system: "describe" displays multiboot info. |
|
Date: |
Mon, 29 Jun 2020 15:58:17 +0200 |
* guix/scripts/system.scm (display-system-generation): Display
multiboot-modules commands if set.
---
guix/scripts/system.scm | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index d9cf45da23..7f062452ac 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -480,6 +480,7 @@ list of services."
(uuid->string root)
root))
(kernel (boot-parameters-kernel params))
+ (multiboot-modules (boot-parameters-multiboot-modules params))
(provenance (catch 'system-error
(lambda ()
(call-with-input-file
@@ -509,6 +510,10 @@ list of services."
(format #t (G_ " kernel: ~a~%") kernel)
+ (when (pair? multiboot-modules)
+ (format #t (G_ " multiboot: ~a~%")
+ (string-join (map car multiboot-modules) "\n ")))
+
(match provenance
(#f #t)
(('provenance ('version 0)
--
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com