From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:44255) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cufxL-0002VQ-Mc for guix-patches@gnu.org; Sun, 02 Apr 2017 09:54:14 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cufxK-0000cu-TW for guix-patches@gnu.org; Sun, 02 Apr 2017 09:54:11 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:58381) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cufxK-0000cf-Qo for guix-patches@gnu.org; Sun, 02 Apr 2017 09:54:10 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cufxK-0000d6-JH for guix-patches@gnu.org; Sun, 02 Apr 2017 09:54:10 -0400 Subject: bug#26339: [PATCH 18/18] scripts: system: Display bootloader device and type in "list-generations". Resent-Message-ID: From: Mathieu Othacehe Date: Sun, 2 Apr 2017 15:52:42 +0200 Message-Id: <20170402135242.2958-18-m.othacehe@gmail.com> In-Reply-To: <20170402135242.2958-1-m.othacehe@gmail.com> References: <20170402135242.2958-1-m.othacehe@gmail.com> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 26339@debbugs.gnu.org * 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 400152d6d..df45e491c 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