nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: libsbsms: Use modify-phases. 

* gnu/packages/audio.scm (libsbsms)[arguments]: Use modify-phases.
This commit is contained in:
Mark H Weaver 2015-07-21 16:35:02 -04:00
parent 729b44e3ae
commit 09c414d80c
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnu/packages/audio.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015 Alex Kost <alezost@gmail.com> ;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1375,16 +1376,16 @@ analysis plugins or audio feature extraction plugins.")
(native-inputs `(("automake" ,automake))) (native-inputs `(("automake" ,automake)))
(arguments (arguments
`(#:phases `(#:phases
(alist-cons-after (modify-phases %standard-phases
'unpack 'fix-ar-lib-path (add-after
(lambda* (#:key inputs #:allow-other-keys) 'unpack 'fix-ar-lib-path
;; Originally a symlink to '/usr/local/share/automake-1.12/ar-lib'. (lambda* (#:key inputs #:allow-other-keys)
(delete-file "ar-lib") ;; Originally a symlink to '/usr/local/share/automake-1.12/ar-lib'.
(symlink (delete-file "ar-lib")
(string-append (assoc-ref inputs "automake") "/share/automake-" (symlink
,(package-version automake) "/ar-lib") (string-append (assoc-ref inputs "automake") "/share/automake-"
"ar-lib")) ,(package-version automake) "/ar-lib")
%standard-phases))) "ar-lib"))))))
(home-page "http://sbsms.sourceforge.net/") (home-page "http://sbsms.sourceforge.net/")
(synopsis "Library for time stretching and pitch scaling of audio") (synopsis "Library for time stretching and pitch scaling of audio")
(description (description