summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2017-04-02 10:02:07 +0200
committerMathieu Othacehe <m.othacehe@gmail.com>2017-05-16 14:41:02 +0200
commit5641dffb078e22fd7306cb5a4eec612de32c46bf (patch)
tree9e080592765fde393b790145d2633b6143eef550 /guix/scripts
parent3241f7ff92cd77c2b36d2e678b4ffc546d8b4ea0 (diff)
scripts: system: Display bootloader name in "list-generations".
* guix/scripts/system.scm (display-system-generation): Display bootloader name.
Diffstat (limited to 'guix/scripts')
-rw-r--r--guix/scripts/system.scm2
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))))