aboutsummaryrefslogtreecommitdiff
path: root/gnu/system.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-09-09 23:38:24 +0200
committerLudovic Courtès <ludo@gnu.org>2016-09-09 23:54:44 +0200
commitab20d74a4638dc6295aa9b9af276d2a98f238f9d (patch)
treec7860fd13d2f07eb201253674ce00ef18d06420a /gnu/system.scm
parent44d5f54e31039d78f156bd9562dca293124eaa76 (diff)
downloadguix-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.
Diffstat (limited to 'gnu/system.scm')
-rw-r--r--gnu/system.scm4
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)))