From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:38333) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d9oH5-0000Wu-Ar for guix-patches@gnu.org; Sun, 14 May 2017 03:49:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d9oH3-0007m5-MR for guix-patches@gnu.org; Sun, 14 May 2017 03:49:07 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:40852) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d9oH3-0007lv-JH for guix-patches@gnu.org; Sun, 14 May 2017 03:49:05 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1d9oH3-0003vZ-D9 for guix-patches@gnu.org; Sun, 14 May 2017 03:49:05 -0400 Subject: bug#26339: [PATCH v4 7/7] scripts: system: Display bootloader name in "list-generations". Resent-Message-ID: From: Mathieu Othacehe Date: Sun, 14 May 2017 09:48:03 +0200 Message-Id: <20170514074803.25556-8-m.othacehe@gmail.com> In-Reply-To: <20170514074803.25556-1-m.othacehe@gmail.com> References: <20170514074803.25556-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 name. --- guix/scripts/system.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 01070ce6e..05ac13e7a 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -519,6 +519,7 @@ list of services." (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) @@ -529,6 +530,7 @@ list of services." (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 name: ~a~%") boot-name) (format #t (G_ " root device: ~a~%") root-device) (format #t (G_ " kernel: ~a~%") kernel)))) -- 2.13.0