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>
This commit is contained in:
Artyom V. Poptsov 2026-01-07 10:19:53 +03:00 committed by Rutherther
parent 7ad0b7ec2a
commit 333e1e5eda
No known key found for this signature in database
GPG key ID: 0322798269E471C3

View file

@ -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")))