~ruther/guix-local: gnu: make-u-boot-installer: Use the original file name.

333e1e5edaac07854853ccd5f2afc89eca215020 — Artyom V. Poptsov a month ago 7ad0b7e

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>

patch browse .tar.gz

1 files changed, 6 insertions(+), 1 deletions(-)

M gnu/bootloader/u-boot.scm

M gnu/bootloader/u-boot.scm => gnu/bootloader/u-boot.scm +6 -1

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