aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2017-10-22 18:42:40 +0200
committerRicardo Wurmus <rekado@elephly.net>2017-10-22 21:25:28 +0200
commit65fc5bf07dff1eb90b6feb161fb4e37360c6e54d (patch)
tree19d0407f9f8c0692ef83fc3600b220858afd9fc3
parent25669275a1a570cc266128274cb27a22f6a3a318 (diff)
downloadguix-65fc5bf07dff1eb90b6feb161fb4e37360c6e54d.tar
guix-65fc5bf07dff1eb90b6feb161fb4e37360c6e54d.tar.gz
gnu: faust-2: Update to 2.1.0.
* gnu/packages/audio.scm (faust-2): Update to 2.1.0. [source]: Fetch sources via git. [arguments]: Add phase "fix-permissions".
-rw-r--r--gnu/packages/audio.scm27
1 files changed, 21 insertions, 6 deletions
diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index aaac1c357e..35b60511bc 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -1065,20 +1065,35 @@ PS, and DAB+.")
(define-public faust-2
(package
(inherit faust)
- (version "2.0.a51")
+ (version "2.1.0")
(source (origin
- (method url-fetch)
- (uri (string-append
- "mirror://sourceforge/faudiostream/faust-" version ".tgz"))
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/grame-cncm/faust.git")
+ (commit (string-append "v"
+ (string-map (lambda (c)
+ (if (char=? c #\.) #\- c))
+ version)))))
(sha256
(base32
- "1yryjqfqmxs7lxy95hjgmrncvl9kig3rcsmg0v49ghzz7vs7haxf"))))
+ "06km0ygwxxwgw1lqldccqidxhmjfz8ck0wnbd95qk5sg8sbpc068"))))
(build-system gnu-build-system)
(arguments
(substitute-keyword-arguments (package-arguments faust)
((#:make-flags flags)
`(list (string-append "prefix=" (assoc-ref %outputs "out"))
- "world"))))
+ "world"))
+ ((#:phases phases)
+ `(modify-phases ,phases
+ ;; Files appear under $out/share/faust that are read-only. The
+ ;; install phase tries to overwrite them and fails, so we change
+ ;; the permissions first.
+ (add-before 'install 'fix-permissions
+ (lambda* (#:key outputs #:allow-other-keys)
+ (for-each (lambda (file)
+ (chmod file #o644))
+ (find-files "architecture/max-msp" ".*"))
+ #t))))))
(native-inputs
`(("llvm" ,llvm-with-rtti)
("which" ,which)