From 1a847b708dfa13c5ea231c6fc729db0088079925 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Fri, 27 May 2016 11:34:44 +0300 Subject: gnu: mpc123: Use 'modify-phases'. * gnu/packages/mp3.scm (mpc123)[arguments]: Use 'modify-phases'. --- gnu/packages/mp3.scm | 28 +++++++++++++--------------- 1 file changed, 13 insertions(+), 15 deletions(-) (limited to 'gnu/packages') diff --git a/gnu/packages/mp3.scm b/gnu/packages/mp3.scm index e3133d788a..f5789487b5 100644 --- a/gnu/packages/mp3.scm +++ b/gnu/packages/mp3.scm @@ -428,22 +428,20 @@ format.") (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 -- cgit v1.2.3