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
1 changed files with 4 additions and 0 deletions

View File

@ -27,6 +27,7 @@
#: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 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m
(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.