diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-04-02 10:02:07 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-05-16 14:41:02 +0200 |
| commit | 5641dffb078e22fd7306cb5a4eec612de32c46bf (patch) | |
| tree | 9e080592765fde393b790145d2633b6143eef550 | |
| parent | 3241f7ff92cd77c2b36d2e678b4ffc546d8b4ea0 (diff) | |
| download | gnu-guix-5641dffb078e22fd7306cb5a4eec612de32c46bf.tar gnu-guix-5641dffb078e22fd7306cb5a4eec612de32c46bf.tar.gz | |
scripts: system: Display bootloader name in "list-generations".
* guix/scripts/system.scm (display-system-generation): Display
bootloader name.
| -rw-r--r-- | guix/scripts/system.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 91b4eb3be1..5e4574f7c7 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -521,6 +521,7 @@ list of services." (let* ((generation (generation-file-name profile number)) (params (read-boot-parameters-file generation)) (label (boot-parameters-label params)) + (boot-name (boot-parameters-boot-name params)) (root (boot-parameters-root-device params)) (root-device (if (bytevector? root) (uuid->string root) @@ -531,6 +532,7 @@ list of services." (format #t (G_ " canonical file name: ~a~%") (readlink* generation)) ;; TRANSLATORS: Please preserve the two-space indentation. (format #t (G_ " label: ~a~%") label) + (format #t (G_ " bootloader: ~a~%") boot-name) (format #t (G_ " root device: ~a~%") root-device) (format #t (G_ " kernel: ~a~%") kernel)))) |