From 5641dffb078e22fd7306cb5a4eec612de32c46bf Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Sun, 2 Apr 2017 10:02:07 +0200 Subject: scripts: system: Display bootloader name in "list-generations". * guix/scripts/system.scm (display-system-generation): Display bootloader name. --- guix/scripts/system.scm | 2 ++ 1 file changed, 2 insertions(+) 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 @@ (define* (display-system-generation number (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 @@ (define* (display-system-generation number (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)))) -- cgit v1.2.3