guix system: Pretty-print device UUIDs.

* guix/scripts/system.scm (display-system-generation): Check if
ROOT-DEVICE is a UUID and pretty-print it if it is.
This commit is contained in:
Ludovic Courtès 2017-09-12 08:46:05 +02:00
parent a247fe7b0d
commit fc2de6ce13
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -41,6 +41,7 @@ (define-module (guix scripts system)
#:use-module (gnu bootloader)
#:use-module (gnu system file-systems)
#:use-module (gnu system linux-container)
#:use-module (gnu system uuid)
#:use-module (gnu system vm)
#:use-module (gnu services)
#:use-module (gnu services shepherd)
@ -530,7 +531,10 @@ (define* (display-system-generation number
;; TRANSLATORS: Please preserve the two-space indentation.
(format #t (G_ " label: ~a~%") label)
(format #t (G_ " bootloader: ~a~%") bootloader-name)
(format #t (G_ " root device: ~a~%") root-device)
(format #t (G_ " root device: ~a~%")
(if (uuid? root-device)
(uuid->string root-device)
root-device))
(format #t (G_ " kernel: ~a~%") kernel))))
(define* (list-generations pattern #:optional (profile %system-profile))