gnu: Fix syntax errors introduced by dc1d3cdef7.

* gnu/packages/mp3.scm (libmad)[arguments]: Adjust syntax and indentation.
* gnu/packages/rdf.scm (lrdf)[arguments]: Adjust phase order.
* gnu/packages/audio.scm (vamp)[arguments]: Remove stray character.
(zita-convolver)[arguments]: Adjust parsens and indentation.
(clalsadrv)[arguments]: Remove stray 'modify-phases'.
This commit is contained in:
Marius Bakke 2017-09-24 19:26:34 +02:00
parent ffcff27272
commit 4f27a33371
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
3 changed files with 20 additions and 21 deletions

View File

@ -629,9 +629,9 @@ language and software synthesizer.")
(lambda _ (lambda _
(symlink "libclalsadrv.so" (symlink "libclalsadrv.so"
(string-append (assoc-ref %outputs "out") (string-append (assoc-ref %outputs "out")
"/lib/libclalsadrv.so.2"))) "/lib/libclalsadrv.so.2"))))
;; no configure script ;; no configure script
(modify-phases %standard-phases (delete 'configure)))))) (delete 'configure))))
(inputs (inputs
`(("alsa-lib" ,alsa-lib) `(("alsa-lib" ,alsa-lib)
("fftw" ,fftw))) ("fftw" ,fftw)))
@ -2144,7 +2144,7 @@ disks as various audio file formats.")
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(list (string-append out "/lib/libvamp-sdk.la") (list (string-append out "/lib/libvamp-sdk.la")
(string-append out "/lib/libvamp-hostsdk.la")))) (string-append out "/lib/libvamp-hostsdk.la"))))
#t)s)))) #t)))))
(inputs (inputs
`(("libsndfile" ,libsndfile))) `(("libsndfile" ,libsndfile)))
(native-inputs (native-inputs
@ -2589,14 +2589,14 @@ result.")
(substitute* "libs/Makefile" (substitute* "libs/Makefile"
(("ldconfig") "true") (("ldconfig") "true")
(("^LIBDIR =.*") "LIBDIR = lib\n")) (("^LIBDIR =.*") "LIBDIR = lib\n"))
(chdir "libs") #t) (chdir "libs") #t))
(add-after 'install 'install-symlink (add-after 'install 'install-symlink
(lambda _ (lambda _
(symlink "libzita-convolver.so" (symlink "libzita-convolver.so"
(string-append (assoc-ref %outputs "out") (string-append (assoc-ref %outputs "out")
"/lib/libzita-convolver.so.3")))) "/lib/libzita-convolver.so.3"))))
;; no configure script ;; no configure script
(delete 'configure))))) (delete 'configure))))
(inputs `(("fftwf" ,fftwf))) (inputs `(("fftwf" ,fftwf)))
(home-page "http://kokkinizita.linuxaudio.org") (home-page "http://kokkinizita.linuxaudio.org")
(synopsis "Fast, partitioned convolution engine library") (synopsis "Fast, partitioned convolution engine library")

View File

@ -68,11 +68,10 @@
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'remove-unsupported-gcc-flags (add-before 'configure 'remove-unsupported-gcc-flags
(lambda _ (lambda _
;; remove option that is not supported by gcc any more ;; remove option that is not supported by gcc any more
(substitute* "configure" ((" -fforce-mem") "")) (substitute* "configure" ((" -fforce-mem") ""))
#t) #t)))))
%standard-phases))))
(synopsis "MPEG audio decoder") (synopsis "MPEG audio decoder")
(description (description
"MAD (MPEG Audio Decoder) supports MPEG-1 and the MPEG-2 extension to "MAD (MPEG Audio Decoder) supports MPEG-1 and the MPEG-2 extension to

View File

@ -129,9 +129,6 @@ Java Lucene text search engine API to C++.")
(arguments (arguments
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'remove-out-of-tree-references 'autoreconf
(lambda _
(zero? (system* "autoreconf" "-vfi"))))
(add-after 'unpack 'remove-out-of-tree-references (add-after 'unpack 'remove-out-of-tree-references
(lambda _ (lambda _
;; remove symlinks to files in /usr/ ;; remove symlinks to files in /usr/
@ -146,7 +143,10 @@ Java Lucene text search engine API to C++.")
(substitute* "examples/Makefile.am" (substitute* "examples/Makefile.am"
(("instances_test remove_test") "instances_test") (("instances_test remove_test") "instances_test")
(("\\$\\(TESTS\\) remove_test") "$(TESTS)")) (("\\$\\(TESTS\\) remove_test") "$(TESTS)"))
#t))))) #t))
(add-after 'remove-out-of-tree-references 'autoreconf
(lambda _
(zero? (system* "autoreconf" "-vfi")))))))
(inputs (inputs
`(("raptor" ,raptor2) `(("raptor" ,raptor2)
("cyrus-sasl" ,cyrus-sasl) ("cyrus-sasl" ,cyrus-sasl)