ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -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

14
gnu/packages/mp3.scm
View file

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