[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: gnu: guile-ncurses: Use 'modify-phases'.
From: |
Efraim Flashner |
Subject: |
02/02: gnu: guile-ncurses: Use 'modify-phases'. |
Date: |
Tue, 10 May 2016 05:53:49 +0000 (UTC) |
efraim pushed a commit to branch master
in repository guix.
commit fa37f21bda179b560da0a2377f876a473c9718a4
Author: Efraim Flashner <address@hidden>
Date: Tue May 10 07:41:27 2016 +0300
gnu: guile-ncurses: Use 'modify-phases'.
* gnu/packages/guile.scm (guile-ncurses)[arguments]: Use 'modify-phases'.
---
gnu/packages/guile.scm | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 954700f..cf79d4e 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -379,17 +379,17 @@ many readers as needed).")
(string-append "--with-guilesitedir="
(assoc-ref %outputs "out")
"/share/guile/site/2.0"))
- #:phases (alist-cons-after
- 'install 'post-install
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (dir (string-append out "/share/guile/site/"))
- (files (find-files dir ".scm")))
- (substitute* files
- (("\"libguile-ncurses\"")
- (format #f "\"~a/lib/libguile-ncurses\""
- out)))))
- %standard-phases)))
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'install 'post-install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (dir (string-append out "/share/guile/site/"))
+ (files (find-files dir ".scm")))
+ (substitute* files
+ (("\"libguile-ncurses\"")
+ (format #f "\"~a/lib/libguile-ncurses\""
+ out)))))))))
(home-page "http://www.gnu.org/software/guile-ncurses/")
(synopsis "Guile bindings to ncurses")
(description