04/05: install: Provide a meaningful label.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 0134ebc55b324dc073b68e3d64ef0d06cfdf35ce
Author: Ludovic Courtès <address@hidden>
Date:   Mon Apr 15 11:34:28 2019 +0200

    install: Provide a meaningful label.
    
    * gnu/system/install.scm (installation-os)[label]: New field.
---
 gnu/system/install.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index c32bb60..d887313 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -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.