From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:39355) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d71rP-0005Al-9I for guix-patches@gnu.org; Sat, 06 May 2017 11:43:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d71rO-0000HT-2t for guix-patches@gnu.org; Sat, 06 May 2017 11:43:07 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:60213) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d71rN-0000HN-UY for guix-patches@gnu.org; Sat, 06 May 2017 11:43:05 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1d71rN-0002dW-Nh for guix-patches@gnu.org; Sat, 06 May 2017 11:43:05 -0400 Subject: bug#26339: [PATCH v3 9/9] scripts: system: Display bootloader device and type in "list-generations". Resent-Message-ID: From: Mathieu Othacehe Date: Sat, 6 May 2017 17:41:54 +0200 Message-Id: <20170506154154.17836-10-m.othacehe@gmail.com> In-Reply-To: <20170506154154.17836-1-m.othacehe@gmail.com> References: <20170506154154.17836-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 adab1cedb..63993a885 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -525,17 +525,21 @@ list of services." (let* ((generation (generation-file-name profile number)) (params (read-boot-parameters-file generation)) (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 (G_ " file name: ~a~%") generation) (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 type: ~a~%") boot-type) (format #t (G_ " root device: ~a~%") root-device) + (format #t (G_ " boot device: ~a~%") boot-device) (format #t (G_ " kernel: ~a~%") kernel)))) (define* (list-generations pattern #:optional (profile %system-profile)) -- 2.12.2