[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
- [PATCH 0/7] Add quassel irc, Efraim Flashner, 2016/02/28
- [PATCH 1/7] gnu: Add oxygen-icons., Efraim Flashner, 2016/02/28
- [PATCH 2/7] gnu: Add qca., Efraim Flashner, 2016/02/28
- [PATCH 4/7] gnu: Add quassel., Efraim Flashner, 2016/02/28
- [PATCH 3/7] gnu: Add snorenotify., Efraim Flashner, 2016/02/28
- [PATCH 6/7] gnu: irssi: Use 'modify-phases'.,
Efraim Flashner <=
- [PATCH 5/7] gnu: irssi: Move to irc.scm., Efraim Flashner, 2016/02/28
- [PATCH 7/7] gnu: weechat: Move to irc.scm., Efraim Flashner, 2016/02/28