futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

install: Provide a meaningful label.

Browse Source 
* gnu/system/install.scm (installation-os)[label]: New field.
This commit is contained in:
Ludovic Courtès 2019-04-15 11:34:28 +02:00
parent 3f03a198b2
commit 0134ebc55b
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/system/install.scm
View File

@ -27,6 +27,7 @@
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix store) #:use-module (guix store)
#:use-module (guix monads) #:use-module (guix monads)
#:use-module ((guix packages) #:select (package-version))
#:use-module ((guix store) #:select (%store-prefix)) #:use-module ((guix store) #:select (%store-prefix))
#:use-module (gnu installer) #:use-module (gnu installer)
#:use-module (gnu services dbus) #:use-module (gnu services dbus)
@ -423,6 +424,9 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m
(bootloader (bootloader-configuration (bootloader (bootloader-configuration
(bootloader grub-bootloader) (bootloader grub-bootloader)
(target "/dev/sda"))) (target "/dev/sda")))
(label (string-append "GNU Guix installation "
(package-version guix)))
(file-systems (file-systems
;; Note: the disk image build code overrides this root file system with ;; Note: the disk image build code overrides this root file system with
;; the appropriate one. ;; the appropriate one.