me/guix
Archived
1
0
Fork 0
Code Activity

gnu: python-pyparsing: Use 'modify-phases' syntax.

Browse source 
* gnu/packages/python.scm (python-pyparsing)[arguments]<#:phases>: Use
'modify-phases'.
This commit is contained in:
Marius Bakke 2017-07-22 15:24:54 +02:00
parent 6e864d0081
commit 007176e710
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 17 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
gnu/packages/python.scm
View file

@ -3955,26 +3955,24 @@ library, libgit2 implements Git plumbing.")
(outputs '("out" "doc")) (outputs '("out" "doc"))
(arguments (arguments
`(#:tests? #f ; no test target `(#:tests? #f ; no test target
#:modules ((guix build python-build-system)
(guix build utils))
#:phases #:phases
(alist-cons-after (modify-phases %standard-phases
'install 'install-doc (add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((doc (string-append (assoc-ref outputs "doc") (let* ((doc (string-append (assoc-ref outputs "doc")
"/share/doc/" ,name "-" ,version)) "/share/doc/" ,name "-" ,version))
(html-doc (string-append doc "/html")) (html-doc (string-append doc "/html"))
(examples (string-append doc "/examples"))) (examples (string-append doc "/examples")))
(mkdir-p html-doc) (mkdir-p html-doc)
(mkdir-p examples) (mkdir-p examples)
(for-each (for-each
(lambda (dir tgt) (lambda (dir tgt)
(map (lambda (file) (map (lambda (file)
(install-file file tgt)) (install-file file tgt))
(find-files dir ".*"))) (find-files dir ".*")))
(list "docs" "htmldoc" "examples") (list "docs" "htmldoc" "examples")
(list doc html-doc examples)))) (list doc html-doc examples))
%standard-phases))) #t))))))
(home-page "http://pyparsing.wikispaces.com") (home-page "http://pyparsing.wikispaces.com")
(synopsis "Python parsing class library") (synopsis "Python parsing class library")
(description (description