summary refs log tree commit diff
path: root/gnu/system/install.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-15 11:34:28 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-15 12:24:14 +0200
commit0134ebc55b324dc073b68e3d64ef0d06cfdf35ce (patch)
treecfe850459015af01cc058ffc767529e171af3b4e /gnu/system/install.scm
parent3f03a198b2f1ad7ff6f1d53c287c36011024d67c (diff)
downloadguix-0134ebc55b324dc073b68e3d64ef0d06cfdf35ce.tar.gz
install: Provide a meaningful label.
* gnu/system/install.scm (installation-os)[label]: New field.
Diffstat (limited to 'gnu/system/install.scm')
-rw-r--r--gnu/system/install.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index c32bb6056e..d887313132 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.