Subject: [PATCH v2 12/12] scripts: system: Display bootloader device and type in "list-generations".

From: Mathieu Othacehe <[email-masked]>
Date: Mon, 17 Apr 2017 11:01:48 +0200

* guix/scripts/system.scm (display-system-generation): Display bootloader
  device and bootloader type.
---
 guix/scripts/system.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index a637f91aa..2ccfbb445 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -534,17 +534,21 @@ list of services."
            (param-file  (string-append generation "/parameters"))
            (params      (call-with-input-file param-file read-boot-parameters))
            (label       (boot-parameters-label params))
+           (boot-type   (boot-parameters-boot-type params))
            (root        (boot-parameters-root-device params))
            (root-device (if (bytevector? root)
                             (uuid->string root)
                             root))
+           (boot-device (boot-parameters-boot-device params))
            (kernel      (boot-parameters-kernel params)))
       (display-generation profile number)
       (format #t (_ "  file name: ~a~%") generation)
       (format #t (_ "  canonical file name: ~a~%") (readlink* generation))
       ;; TRANSLATORS: Please preserve the two-space indentation.
       (format #t (_ "  label: ~a~%") label)
+      (format #t (_ "  bootloader type: ~a~%") boot-type)
       (format #t (_ "  root device: ~a~%") root-device)
+      (format #t (_ "  boot device: ~a~%") boot-device)
       (format #t (_ "  kernel: ~a~%") kernel))))
 
 (define* (list-generations pattern #:optional (profile %system-profile))
-- 
2.12.2