ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 04:59:27 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix system: "describe" displays multiboot info.

Browse source 
* guix/scripts/system.scm (display-system-generation): Display
multiboot-modules commands if set.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-06-29 15:24:56 +02:00
parent 2b76179ecd
commit 28febfafbb
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/scripts/system.scm
View file

@ -482,6 +482,7 @@ (define (display-channel channel)
(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 @@ (define (display-channel channel)
(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)