[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: gnu: mpc123: Use 'modify-phases'.
From: |
Efraim Flashner |
Subject: |
02/03: gnu: mpc123: Use 'modify-phases'. |
Date: |
Fri, 27 May 2016 08:38:45 +0000 (UTC) |
efraim pushed a commit to branch master
in repository guix.
commit 1a847b708dfa13c5ea231c6fc729db0088079925
Author: Efraim Flashner <address@hidden>
Date: Fri May 27 11:34:44 2016 +0300
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(-)
diff --git a/gnu/packages/mp3.scm b/gnu/packages/mp3.scm
index e3133d7..f578948 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