From 0134ebc55b324dc073b68e3d64ef0d06cfdf35ce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 15 Apr 2019 11:34:28 +0200
Subject: [PATCH] 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 c32bb6056ec..d887313132d 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -27,6 +27,7 @@ (define-module (gnu system install)
#: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 @@ (define installation-os
(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.
--
GitLab