diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-15 11:34:28 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-15 12:24:14 +0200 |
| commit | 0134ebc55b324dc073b68e3d64ef0d06cfdf35ce (patch) | |
| tree | cfe850459015af01cc058ffc767529e171af3b4e | |
| parent | 3f03a198b2f1ad7ff6f1d53c287c36011024d67c (diff) | |
| download | guix-0134ebc55b324dc073b68e3d64ef0d06cfdf35ce.tar guix-0134ebc55b324dc073b68e3d64ef0d06cfdf35ce.tar.gz | |
install: Provide a meaningful label.
* gnu/system/install.scm (installation-os)[label]: New field.
| -rw-r--r-- | gnu/system/install.scm | 4 |
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. |