diff options
| -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 c32bb6056ec..d887313132d 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm | |||
| @@ -27,6 +27,7 @@ | |||
| 27 | #:use-module (guix gexp) | 27 | #:use-module (guix gexp) |
| 28 | #:use-module (guix store) | 28 | #:use-module (guix store) |
| 29 | #:use-module (guix monads) | 29 | #:use-module (guix monads) |
| 30 | #:use-module ((guix packages) #:select (package-version)) | ||
| 30 | #:use-module ((guix store) #:select (%store-prefix)) | 31 | #:use-module ((guix store) #:select (%store-prefix)) |
| 31 | #:use-module (gnu installer) | 32 | #:use-module (gnu installer) |
| 32 | #:use-module (gnu services dbus) | 33 | #:use-module (gnu services dbus) |
| @@ -423,6 +424,9 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m | |||
| 423 | (bootloader (bootloader-configuration | 424 | (bootloader (bootloader-configuration |
| 424 | (bootloader grub-bootloader) | 425 | (bootloader grub-bootloader) |
| 425 | (target "/dev/sda"))) | 426 | (target "/dev/sda"))) |
| 427 | (label (string-append "GNU Guix installation " | ||
| 428 | (package-version guix))) | ||
| 429 | |||
| 426 | (file-systems | 430 | (file-systems |
| 427 | ;; Note: the disk image build code overrides this root file system with | 431 | ;; Note: the disk image build code overrides this root file system with |
| 428 | ;; the appropriate one. | 432 | ;; the appropriate one. |