guix-commits
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]