[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/05: install: Provide a meaningful label.
From: |
guix-commits |
Subject: |
04/05: install: Provide a meaningful label. |
Date: |
Mon, 15 Apr 2019 06:25:12 -0400 (EDT) |
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.