02/03: gnu: queen-de: Fix build.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit 18007d3a7bfcafa28205b636e7b631818c664c63
Author: Felix Gruber <felgru@posteo.net>
AuthorDate: Thu Aug 4 19:23:49 2022 +0000

    gnu: queen-de: Fix build.
    
    The sources for queen-de lack a readme, so check whether one exists prior to
    trying to install it.  See <https://bugs.gnu.org/56886>.
    
    * gnu/packages/games.scm (make-queen-package)[#:builder]: Only install
    readme.txt if it exists.
    
    Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
---
 gnu/packages/games.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index d90e85de9e..5e8b7a6d0d 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -9807,7 +9807,9 @@ Skorl.  Maybe it would be an idea to try and escape...")
            (let ((unzip (search-input-file %build-inputs "/bin/unzip")))
              (invoke unzip "-j" (assoc-ref %build-inputs "source")))
            (let ((doc (string-append share "/doc/" ,name "-" ,version)))
-             (install-file "readme.txt" doc))
+             (for-each (lambda (file)
+                         (when (file-exists? file) (install-file file doc)))
+                       '("readme.txt" "README" "README.md")))
            (install-file "queen.1c" data)
            (mkdir-p bin)
            (let ((bash (assoc-ref %build-inputs "bash")))