branch master updated: gnu: chess: Fix paths in installed shell scripts.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 1d55604  gnu: chess: Fix paths in installed shell scripts.
1d55604 is described below

commit 1d5560494bc1d64d591288072c664ce7ab548202
Author: Michael Rohleder <mike@rohleder.de>
AuthorDate: Mon May 3 23:56:15 2021 +0200

    gnu: chess: Fix paths in installed shell scripts.
    
    * gnu/packages/games.scm (chess)[arguments]: Add a 'fix-shell-scripts phase.
    
    Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
---
 gnu/packages/games.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 073e41e..9d7c8ef 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -3163,6 +3163,16 @@ asynchronously and at a user-defined speed.")
         (base32
          "0ilq4bfl0lwyzf11q7n2skydjhalfn3bgxhrp5hjxs5bc5d6fdp5"))))
     (build-system gnu-build-system)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'fix-shell-scripts
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin (string-append out "/bin")))
+               (chdir bin)
+               (substitute* '("gnuchessx" "gnuchessu")
+                 (("^gnuchess") (string-append bin "/gnuchess")))))))))
     (home-page "https://www.gnu.org/software/chess/";)
     (synopsis "Full chess implementation")
     (description "GNU Chess is a chess engine.  It allows you to compete