diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-09-09 23:38:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-09-09 23:54:44 +0200 |
| commit | ab20d74a4638dc6295aa9b9af276d2a98f238f9d (patch) | |
| tree | c7860fd13d2f07eb201253674ce00ef18d06420a | |
| parent | 44d5f54e31039d78f156bd9562dca293124eaa76 (diff) | |
| download | guix-ab20d74a4638dc6295aa9b9af276d2a98f238f9d.tar guix-ab20d74a4638dc6295aa9b9af276d2a98f238f9d.tar.gz | |
system: Build the initrd file name with 'file-append'.
* gnu/system.scm (operating-system-initrd-file)
(operating-system-grub.cfg): Use 'file-append' to construct the initrd
file name.
| -rw-r--r-- | gnu/system.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/system.scm b/gnu/system.scm index 18b2806fe9..4c1de384fa 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -660,7 +660,7 @@ hardware-related operations as necessary when booting a Linux container." (mlet %store-monad ((initrd (make-initrd boot-file-systems #:linux (operating-system-kernel os) #:mapped-devices mapped-devices))) - (return #~(string-append #$initrd "/initrd")))) + (return (file-append initrd "/initrd")))) (define (locale-name->definition* name) "Variant of 'locale-name->definition' that raises an error upon failure." @@ -738,7 +738,7 @@ listed in OS. The C library expects to find it under #~(string-append "--load=" #$system "/boot") (operating-system-kernel-arguments os))) - (initrd #~(string-append #$system "/initrd")))))) + (initrd (file-append system "/initrd")))))) (grub-configuration-file (operating-system-bootloader os) store-fs entries #:old-entries old-entries))) |