nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: guile-ncurses: Use 'modify-phases'. 

* gnu/packages/guile.scm (guile-ncurses)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-05-10 07:41:27 +03:00
parent 4176eb1918
commit fa37f21bda
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/guile.scm
View File

@ -379,17 +379,17 @@ many readers as needed).")
(string-append "--with-guilesitedir=" (string-append "--with-guilesitedir="
(assoc-ref %outputs "out") (assoc-ref %outputs "out")
"/share/guile/site/2.0")) "/share/guile/site/2.0"))
#:phases (alist-cons-after #:phases
'install 'post-install (modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (add-after 'install 'post-install
(let* ((out (assoc-ref outputs "out")) (lambda* (#:key outputs #:allow-other-keys)
(dir (string-append out "/share/guile/site/")) (let* ((out (assoc-ref outputs "out"))
(files (find-files dir ".scm"))) (dir (string-append out "/share/guile/site/"))
(substitute* files (files (find-files dir ".scm")))
(("\"libguile-ncurses\"") (substitute* files
(format #f "\"~a/lib/libguile-ncurses\"" (("\"libguile-ncurses\"")
out))))) (format #f "\"~a/lib/libguile-ncurses\""
%standard-phases))) out)))))))))
(home-page "http://www.gnu.org/software/guile-ncurses/") (home-page "http://www.gnu.org/software/guile-ncurses/")
(synopsis "Guile bindings to ncurses") (synopsis "Guile bindings to ncurses")
(description (description