ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mpc123: Use 'modify-phases'.

Browse source 
* gnu/packages/mp3.scm (mpc123)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-05-27 11:34:44 +03:00
parent d1cd67af5d
commit 1a847b708d
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 13 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/mp3.scm
View file

@ -428,22 +428,20 @@ (define-public mpc123
(patches (search-patches "mpc123-initialize-ao.patch"))))
(build-system gnu-build-system)
(arguments
'(#:phases (alist-replace
'configure
(lambda _
(substitute* "Makefile"
(("CC[[:blank:]]*:=.*")
"CC := gcc\n")))
(alist-replace
'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(mkdir-p bin)
(install-file "mpc123" bin)))
%standard-phases))
'(#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda _
(substitute* "Makefile"
(("CC[[:blank:]]*:=.*")
"CC := gcc\n"))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(mkdir-p bin)
(install-file "mpc123" bin)))))
#:tests? #f))
(native-inputs
`(("gettext" ,gnu-gettext)))
(inputs