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.master
parent
44d5f54e31
commit
ab20d74a46
|
@ -660,7 +660,7 @@ hardware-related operations as necessary when booting a Linux container."
|
||||||
(mlet %store-monad ((initrd (make-initrd boot-file-systems
|
(mlet %store-monad ((initrd (make-initrd boot-file-systems
|
||||||
#:linux (operating-system-kernel os)
|
#:linux (operating-system-kernel os)
|
||||||
#:mapped-devices mapped-devices)))
|
#:mapped-devices mapped-devices)))
|
||||||
(return #~(string-append #$initrd "/initrd"))))
|
(return (file-append initrd "/initrd"))))
|
||||||
|
|
||||||
(define (locale-name->definition* name)
|
(define (locale-name->definition* name)
|
||||||
"Variant of 'locale-name->definition' that raises an error upon failure."
|
"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
|
#~(string-append "--load=" #$system
|
||||||
"/boot")
|
"/boot")
|
||||||
(operating-system-kernel-arguments os)))
|
(operating-system-kernel-arguments os)))
|
||||||
(initrd #~(string-append #$system "/initrd"))))))
|
(initrd (file-append system "/initrd"))))))
|
||||||
(grub-configuration-file (operating-system-bootloader os)
|
(grub-configuration-file (operating-system-bootloader os)
|
||||||
store-fs entries
|
store-fs entries
|
||||||
#:old-entries old-entries)))
|
#:old-entries old-entries)))
|
||||||
|
|
Reference in New Issue