From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:50467) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d02Yx-0000c2-Ny for guix-patches@gnu.org; Mon, 17 Apr 2017 05:03:14 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d02Yv-0001Ze-GR for guix-patches@gnu.org; Mon, 17 Apr 2017 05:03:11 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:53313) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d02Yv-0001ZO-Di for guix-patches@gnu.org; Mon, 17 Apr 2017 05:03:09 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1d02Yv-0005Rx-5u for guix-patches@gnu.org; Mon, 17 Apr 2017 05:03:09 -0400 Subject: bug#26339: [PATCH v2 12/12] scripts: system: Display bootloader device and type in "list-generations". Resent-Message-ID: From: Mathieu Othacehe Date: Mon, 17 Apr 2017 11:01:48 +0200 Message-Id: <20170417090148.13791-13-m.othacehe@gmail.com> In-Reply-To: <20170417090148.13791-1-m.othacehe@gmail.com> References: <20170417090148.13791-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 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