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:23:46 +0100 |
| commit | 333e1e5edaac07854853ccd5f2afc89eca215020 (patch) | |
| tree | 4104ddb257a85e7f906b5123fc12712d07443004 | |
| parent | 7ad0b7ec2ad6d8f409db37d31ca32644fdafe28e (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>
| -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 @@ | |||
| 65 | ((? string?) | 65 | ((? string?) |
| 66 | (list #~(install-file (string-append bootloader #$file) | 66 | (list #~(install-file (string-append bootloader #$file) |
| 67 | install-dir))) | 67 | install-dir))) |
| 68 | ((? file-like?) (list #~(install-file #$file install-dir))) | 68 | ((? file-like?) |
| 69 | (list #~(mkdir-p install-dir) | ||
| 70 | #~(copy-file #$file | ||
| 71 | (string-append install-dir | ||
| 72 | "/" | ||
| 73 | #$(plain-file-name file))))) | ||
| 69 | (#f '())))) | 74 | (#f '())))) |
| 70 | #~(lambda (bootloader device mount-point) | 75 | #~(lambda (bootloader device mount-point) |
| 71 | (let ((install-dir (string-append mount-point "/boot"))) | 76 | (let ((install-dir (string-append mount-point "/boot"))) |