diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2026-01-07 10:19:53 +0300 |
|---|---|---|
| committer | Rutherther <rutherther@ditigal.xyz> | 2026-01-16 20:13:40 +0100 |
| commit | 7782a47f7fbf7775ac0af1b46fa1ec0ddab99eb1 (patch) | |
| tree | 0832a6c0269a5bbaba49f5b8ad41ac1d369649ba /gnu/bootloader | |
| parent | 512d49f07358535d3de535faabf13c58b39a1dd1 (diff) | |
gnu: make-u-boot-installer: Use the original file name.
* gnu/bootloader/u-boot.scm (make-u-boot-installer): Use the original file
name without the Guix store file prefix when installing a plain file.
Change-Id: Ica2707878c1dd5f7d3b805499a0a38ca76e315af
Signed-off-by: Rutherther <rutherther@ditigal.xyz>
Diffstat (limited to 'gnu/bootloader')
| -rw-r--r-- | gnu/bootloader/u-boot.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/bootloader/u-boot.scm b/gnu/bootloader/u-boot.scm index 4c74f620007..3b20fd721d4 100644 --- a/gnu/bootloader/u-boot.scm +++ b/gnu/bootloader/u-boot.scm @@ -65,7 +65,12 @@ ((? string?) (list #~(install-file (string-append bootloader #$file) install-dir))) - ((? file-like?) (list #~(install-file #$file install-dir))) + ((? file-like?) + (list #~(mkdir-p install-dir) + #~(copy-file #$file + (string-append install-dir + "/" + #$(plain-file-name file))))) (#f '())))) #~(lambda (bootloader device mount-point) (let ((install-dir (string-append mount-point "/boot"))) |