guix-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] gnu: vamp: Delete broken files from output.


From: Taylan Ulrich Bayırlı/Kammer
Subject: [PATCH] gnu: vamp: Delete broken files from output.
Date: Sat, 21 Feb 2015 16:48:26 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux)

This bit me while building Audacity.  (Bunch of patches coming soon!)

>From 13f91105c99dda0b8d68b3db2f08149326276eac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Taylan=20Ulrich=20Bay=C4=B1rl=C4=B1/Kammer?=
 <address@hidden>
Date: Sat, 21 Feb 2015 16:37:46 +0100
Subject: [PATCH 1/9] gnu: vamp: Delete broken files from output.

See <https://bugs.launchpad.net/ubuntu/+source/vamp-plugin-sdk/+bug/1253656>.

* gnu/packages/audio.scm (vamp): Delete "/lib/libvamp-sdk.la" and
  "/lib/libvamp-hostsdk.la" from the output directory after the install
  phase.
---
 gnu/packages/audio.scm | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 6e7ebf1..3d0f0f4 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -582,11 +582,23 @@ Suil currently supports every combination of Gtk 2, Qt 4, 
and X11.")
                     "/attachments/download/690/vamp-plugin-sdk-"
                     version
                     ".tar.gz"))
-             (sha256
-              (base32
-               "178kfgq08cmgdzv7g8dwyjp4adwx8q04riimncq4nqkm8ng9ywbv"))))
+              (sha256
+               (base32
+                "178kfgq08cmgdzv7g8dwyjp4adwx8q04riimncq4nqkm8ng9ywbv"))))
     (build-system gnu-build-system)
-    (arguments `(#:tests? #f)) ; no check target
+    (arguments
+     `(#:tests? #f                      ; no check target
+       #:phases
+       (alist-cons-after
+        'install 'remove-libvamp-hostsdk.la
+        (lambda* (#:key outputs #:allow-other-keys)
+          ;; 
https://bugs.launchpad.net/ubuntu/+source/vamp-plugin-sdk/+bug/1253656
+          (for-each delete-file
+                    (let ((out (assoc-ref outputs "out")))
+                      (list (string-append out "/lib/libvamp-sdk.la")
+                            (string-append out "/lib/libvamp-hostsdk.la"))))
+          #t)
+        %standard-phases)))
     (inputs
      `(("libsndfile" ,libsndfile)))
     (native-inputs
-- 
2.2.1


reply via email to

[Prev in Thread] Current Thread [Next in Thread]