From mboxrd@z Thu Jan 1 00:00:00 1970 From: Efraim Flashner Subject: [PATCH 6/7] gnu: irssi: Use 'modify-phases'. Date: Sun, 28 Feb 2016 12:10:11 +0200 Message-ID: <1456654212-31881-7-git-send-email-efraim@flashner.co.il> References: <1456654212-31881-1-git-send-email-efraim@flashner.co.il> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:40720) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aZyIz-0004OK-PU for guix-devel@gnu.org; Sun, 28 Feb 2016 05:10:26 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aZyIy-0002h6-JG for guix-devel@gnu.org; Sun, 28 Feb 2016 05:10:25 -0500 Received: from flashner.co.il ([178.62.234.194]:33753) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aZyIy-0002gm-Dv for guix-devel@gnu.org; Sun, 28 Feb 2016 05:10:24 -0500 Received: from localhost.localdomain (85.65.229.31.dynamic.barak-online.net [85.65.229.31]) by flashner.co.il (Postfix) with ESMTPSA id 629234053F for ; Sun, 28 Feb 2016 10:10:23 +0000 (UTC) In-Reply-To: <1456654212-31881-1-git-send-email-efraim@flashner.co.il> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * 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