me
/
guix
Archived
1
0
Fork 0
Code

guix system: "describe" displays multiboot info. 

* guix/scripts/system.scm (display-system-generation): Display
multiboot-modules commands if set.
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 @@ list of services."
(uuid->string root) (uuid->string root)
root)) root))
(kernel (boot-parameters-kernel params)) (kernel (boot-parameters-kernel params))
(multiboot-modules (boot-parameters-multiboot-modules params))
(provenance (catch 'system-error (provenance (catch 'system-error
(lambda () (lambda ()
(call-with-input-file (call-with-input-file
@ -511,6 +512,12 @@ list of services."
(format #t (G_ " kernel: ~a~%") kernel) (format #t (G_ " kernel: ~a~%") kernel)
(match multiboot-modules
(() #f)
(((modules . _) ...)
(format #t (G_ " multiboot: ~a~%")
(string-join modules "\n "))))
(match provenance (match provenance
(#f #t) (#f #t)
(('provenance ('version 0) (('provenance ('version 0)