diff options
| author | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2020-06-29 15:24:56 +0200 |
|---|---|---|
| committer | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2020-07-03 09:28:16 +0200 |
| commit | 28febfafbb23561624cc5c4ac8ed581f1f867f70 (patch) | |
| tree | 8b8836674d6d5bea71497746aced06203cf19965 | |
| parent | 2b76179ecd951172288f5f6f78402d9304d2da41 (diff) | |
| download | guix-28febfafbb23561624cc5c4ac8ed581f1f867f70.tar.gz | |
guix system: "describe" displays multiboot info.
* guix/scripts/system.scm (display-system-generation): Display multiboot-modules commands if set.
| -rw-r--r-- | guix/scripts/system.scm | 7 |
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) |