06/07: gnu: irssi: Use 'modify-phases'.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit a61bd6a5e3f375c08794519f4c9528c899eb5f32
Author: Efraim Flashner <address@hidden>
Date:   Sun Feb 28 20:48:57 2016 +0200

    gnu: irssi: Use 'modify-phases'.
    
    * gnu/packages/irc.scm (irssi)[arguments]: Use 'modify-phases'.
---
 gnu/packages/irc.scm |   21 ++++++++++-----------
 1 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/irc.scm b/gnu/packages/irc.scm
index 0e29f8a..07b72bd 100644
--- a/gnu/packages/irc.scm
+++ b/gnu/packages/irc.scm
@@ -88,17 +88,16 @@ irssi, but graphical.")
     (build-system gnu-build-system)
     (arguments
      `(#:phases
-       (alist-replace
-        'configure
-        (lambda* (#:key inputs outputs #:allow-other-keys)
-          (let ((out (assoc-ref outputs "out"))
-                (ncurses (assoc-ref inputs "ncurses")))
-            (setenv "CONFIG_SHELL" (which "bash"))
-            (zero?
-             (system* "./configure"
-                      (string-append "--prefix=" out)
-                      (string-append "--with-ncurses=" ncurses)))))
-        %standard-phases)))
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (ncurses (assoc-ref inputs "ncurses")))
+               (setenv "CONFIG_SHELL" (which "bash"))
+               (zero?
+                (system* "./configure"
+                         (string-append "--prefix=" out)
+                         (string-append "--with-ncurses=" ncurses)))))))))
     (inputs
      `(("glib" ,glib)
        ("ncurses" ,ncurses)