[bug#56886] [PATCH] gnu: queen-de: Fix build.

[Felix Gruber]

The German language version of the queen package does not contain a
readme.txt file, but instead contains a file COPYING.

* gnu/packages/games.scm (make-queen-package): Add readme-name argument.
  [arguments]: Use readme-name to install the readme file.
  (queen-de): Set readme-name to COPYING.
  (queen,queen-fr,queen-it): Set readme-name to readme.txt. This keeps
  the previous behavior.
---
 gnu/packages/games.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 8b655cc0e4..8303afa633 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -9728,7 +9728,7 @@ Skorl.  Maybe it would be an idea to try and escape...")
   (make-lure-package
    "lure-it" "it" "1ks6n39r1cllisrrh6pcr39swsdv7ng3gx5c47vaw71zzfr70hjj"))
 
-(define (make-queen-package name file-prefix release language hash)
+(define (make-queen-package name file-prefix release language readme-name hash)
   (package
     (name name)
     (version release)
@@ -9756,7 +9756,7 @@ 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))
+             (install-file ,readme-name doc))
            (install-file "queen.1c" data)
            (mkdir-p bin)
            (let ((bash (assoc-ref %build-inputs "bash")))
@@ -9807,22 +9807,22 @@ women and 6-foot-tall pygmies.")
 
 (define-public queen
   (make-queen-package
-   "queen" "FOTAQ_Talkie-" "1.1" "en"
+   "queen" "FOTAQ_Talkie-" "1.1" "en" "readme.txt"
    "1a6q71q1dl9vvw2qqsxk5h1sv0gaqy6236zr5905w2is01gdsp52"))
 
 (define-public queen-de
   (make-queen-package
-   "queen-de" "FOTAQ_Ger_talkie-" "1.0" "de"
+   "queen-de" "FOTAQ_Ger_talkie-" "1.0" "de" "COPYING"
    "13vn43x7214vyprlpqabvv71k890nff3d6fjscflr1ll7acjca3f"))
 
 (define-public queen-fr
   (make-queen-package
-   "queen-fr" "FOTAQ_Fr_Talkie_" "1.0" "fr"
+   "queen-fr" "FOTAQ_Fr_Talkie_" "1.0" "fr" "readme.txt"
    "0hq5g4qrkcwm2kn5i4kv4hijs9hi7bw9xl1vrwd1l69qqn30crwy"))
 
 (define-public queen-it
   (make-queen-package
-   "queen-it" "FOTAQ_It_Talkie_" "1.0" "it"
+   "queen-it" "FOTAQ_It_Talkie_" "1.0" "it" "readme.txt"
    "1h76y70lrpzfjkm53n4nr364nhyka54vbz9r7sadzyzl7c7ilv4d"))
 
 (define-public sky
-- 
2.30.2