branch master updated: gnu: audacity: Remove gratuitous wrapper script.

[guix-commits]

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

lilyp pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 7783a18b7b gnu: audacity: Remove gratuitous wrapper script.
7783a18b7b is described below

commit 7783a18b7b65f857c0c5420c846b8f5596d137c1
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Thu Aug 18 20:38:54 2022 +0200

    gnu: audacity: Remove gratuitous wrapper script.
    
    Audacity installs a wrapper in the installation root.  This wrapper is
    pointless, as Guix has its own wrapper script in the right location.
    For more information, see <https://bugs.gnu.org/53790>.
    
    * gnu/packages/audio.scm (audacity)[#:phases]: Add 
‘delete-gratuitous-script’.
---
 gnu/packages/audio.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index aad86bac06..c0bfb3b9d8 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -875,6 +875,10 @@ engineers, musicians, soundtrack editors and composers.")
            (lambda* (#:key inputs #:allow-other-keys)
              (substitute* '("libraries/lib-files/FileNames.cpp")
                (("\"/usr/include/linux/magic.h\"") "<linux/magic.h>"))))
+         (add-after 'install 'delete-gratuitous-script
+           (lambda* (#:key outputs #:allow-other-keys)
+             (delete-file (string-append (assoc-ref outputs "out")
+                                         "/audacity"))))
          (add-after 'wrap-program 'glib-or-gtk-wrap
            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))
        ;; The test suite is not "well exercised" according to the developers,