[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#32140] [PATCH] gnu: make-u-boot-package: Don't install "sunxi-spl-w
From: |
Ludovic Courtès |
Subject: |
[bug#32140] [PATCH] gnu: make-u-boot-package: Don't install "sunxi-spl-with-ecc.bin". |
Date: |
Wed, 18 Jul 2018 00:16:21 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux) |
Hi Danny,
Danny Milosavljevic <address@hidden> skribis:
> * gnu/packages/bootloaders.scm (make-u-boot-package)[arguments]<#:phases>
> [install]: Don't install "sunxi-spl-with-ecc.bin".
> ---
> gnu/packages/bootloaders.scm | 14 +++++++++++++-
> 1 file changed, 13 insertions(+), 1 deletion(-)
>
> diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
> index 7599f4ac2..19d47e6e5 100644
> --- a/gnu/packages/bootloaders.scm
> +++ b/gnu/packages/bootloaders.scm
> @@ -508,7 +508,19 @@ board-independent tools.")))
> (let* ((out (assoc-ref outputs "out"))
> (libexec (string-append out "/libexec"))
> (uboot-files (append
> - (find-files "."
> ".*\\.(bin|efi|img|spl|itb|dtb|rksd)$")
> + (filter
> + ;; Those would not be reproducible
> + ;; because of the randomness used
> + ;; to produce them.
> + ;; It's expected that the user will
> + ;; use u-boot-tools to generate them
> + ;; instead.
> + (lambda (name)
> + (not
> + (string-suffix?
Nitpick: you could write: (remove (lambda (string-suffix? …)) lst)
instead.
Otherwise LGTM, thanks!
Ludo’.