guix system: "describe" displays multiboot info.
* guix/scripts/system.scm (display-system-generation): Display multiboot-modules commands if set.
parent
2b76179ecd
commit
28febfafbb
|
@ -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)
|
||||
|
|
Reference in New Issue