summaryrefslogtreecommitdiff
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-patches-0134ebc55b324dc073b68e3d64ef0d06cfdf35ce.tar
guix-patches-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.