guix-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH 6/7] gnu: irssi: Use 'modify-phases'.


From: Efraim Flashner
Subject: [PATCH 6/7] gnu: irssi: Use 'modify-phases'.
Date: Sun, 28 Feb 2016 12:10:11 +0200

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

diff --git a/gnu/packages/irc.scm b/gnu/packages/irc.scm
index cd2e795..b9ac572 100644
--- a/gnu/packages/irc.scm
+++ b/gnu/packages/irc.scm
@@ -88,17 +88,16 @@ such as WeeChat or 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)
-- 
2.7.0




reply via email to

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