install: Provide a meaningful label.

* gnu/system/install.scm (installation-os)[label]: New field.
This commit is contained in:
Ludovic Courtès 2019-04-15 11:34:28 +02:00
parent 3f03a198b2
commit 0134ebc55b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -27,6 +27,7 @@ (define-module (gnu system install)
#:use-module (guix gexp)
#:use-module (guix store)
#:use-module (guix monads)
#:use-module ((guix packages) #:select (package-version))
#:use-module ((guix store) #:select (%store-prefix))
#:use-module (gnu installer)
#:use-module (gnu services dbus)
@ -423,6 +424,9 @@ (define installation-os
(bootloader (bootloader-configuration
(bootloader grub-bootloader)
(target "/dev/sda")))
(label (string-append "GNU Guix installation "
(package-version guix)))
(file-systems
;; Note: the disk image build code overrides this root file system with
;; the appropriate one.