mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
gnu: mpc123: Use 'modify-phases'.
* gnu/packages/mp3.scm (mpc123)[arguments]: Use 'modify-phases'.
This commit is contained in:
parent
d1cd67af5d
commit
1a847b708d
1 changed files with 13 additions and 15 deletions
|
@ -428,22 +428,20 @@ (define-public mpc123
|
|||
(patches (search-patches "mpc123-initialize-ao.patch"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
'(#:phases (alist-replace
|
||||
'configure
|
||||
'(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(replace 'configure
|
||||
(lambda _
|
||||
(substitute* "Makefile"
|
||||
(("CC[[:blank:]]*:=.*")
|
||||
"CC := gcc\n")))
|
||||
(alist-replace
|
||||
'install
|
||||
"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)))
|
||||
%standard-phases))
|
||||
(install-file "mpc123" bin)))))
|
||||
#:tests? #f))
|
||||
|
||||
(native-inputs
|
||||
`(("gettext" ,gnu-gettext)))
|
||||
(inputs
|
||||
|
|
Loading…
Reference in a new issue