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

gnu: moreutils: Use 'modify-phases'. 

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

23
gnu/packages/moreutils.scm
View File

@ -46,18 +46,17 @@
("docbook-xsl" ,docbook-xsl))) ("docbook-xsl" ,docbook-xsl)))
(arguments (arguments
`(#:phases `(#:phases
(alist-replace (modify-phases %standard-phases
'configure (replace 'configure
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
(substitute* "Makefile" (substitute* "Makefile"
(("/usr/share/xml/.*/docbook.xsl") (("/usr/share/xml/.*/docbook.xsl")
(let* ((docbook-xsl (assoc-ref inputs "docbook-xsl")) (let* ((docbook-xsl (assoc-ref inputs "docbook-xsl"))
(files (find-files docbook-xsl "^docbook\\.xsl$"))) (files (find-files docbook-xsl "^docbook\\.xsl$")))
(find (lambda (file) (find (lambda (file)
(string-suffix? "/manpages/docbook.xsl" file)) (string-suffix? "/manpages/docbook.xsl" file))
files))))) files)))))))
%standard-phases)
#:make-flags #:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out")) (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
"CC=gcc"))) "CC=gcc")))