summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorJan (janneke) Nieuwenhuizen <janneke@gnu.org>2020-06-29 15:24:56 +0200
committerJan (janneke) Nieuwenhuizen <janneke@gnu.org>2020-07-03 09:28:16 +0200
commit28febfafbb23561624cc5c4ac8ed581f1f867f70 (patch)
tree8b8836674d6d5bea71497746aced06203cf19965 /guix
parent2b76179ecd951172288f5f6f78402d9304d2da41 (diff)
guix system: "describe" displays multiboot info.
* guix/scripts/system.scm (display-system-generation): Display multiboot-modules commands if set.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/system.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 28aaa6e3bc..61eeec622b 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -482,6 +482,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
@@ -511,6 +512,12 @@ list of services."
(format #t (G_ " kernel: ~a~%") kernel)
+ (match multiboot-modules
+ (() #f)
+ (((modules . _) ...)
+ (format #t (G_ " multiboot: ~a~%")
+ (string-join modules "\n "))))
+
(match provenance
(#f #t)
(('provenance ('version 0)