gnu: python-pycparser: Use ‘modify-phases’ syntax.

* gnu/packages/python.scm (python-pycparser)[arguments]: Use
‘modify-phases’.
This commit is contained in:
Tobias Geerinckx-Rice 2017-01-02 08:25:38 +01:00
parent 5043b20dcd
commit 819939cb94
No known key found for this signature in database
GPG Key ID: 91CCDB9B48541B99
1 changed files with 17 additions and 19 deletions

View File

@ -32,7 +32,7 @@
;;; Copyright © 2016 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2016 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2016 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2016 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2016 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2016 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -4280,24 +4280,22 @@ a general image processing tool.")
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(arguments (arguments
`(#:phases `(#:phases
(alist-replace (modify-phases %standard-phases
'check (replace 'check
(lambda _ (lambda _
(with-directory-excursion "tests" (with-directory-excursion "tests"
(zero? (system* "python" "all_tests.py")))) (zero? (system* "python" "all_tests.py")))))
(alist-cons-after (add-after 'install 'install-doc
'install 'install-doc (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) (let* ((data (string-append (assoc-ref outputs "doc") "/share"))
(let* ((data (string-append (assoc-ref outputs "doc") "/share")) (doc (string-append data "/doc/" ,name "-" ,version))
(doc (string-append data "/doc/" ,name "-" ,version)) (examples (string-append doc "/examples")))
(examples (string-append doc "/examples"))) (mkdir-p examples)
(mkdir-p examples) (for-each (lambda (file)
(for-each (lambda (file) (copy-file (string-append "." file)
(copy-file (string-append "." file) (string-append doc file)))
(string-append doc file))) '("/README.rst" "/CHANGES" "/LICENSE"))
'("/README.rst" "/CHANGES" "/LICENSE")) (copy-recursively "examples" examples)))))))
(copy-recursively "examples" examples)))
%standard-phases))))
(home-page "https://github.com/eliben/pycparser") (home-page "https://github.com/eliben/pycparser")
(synopsis "C parser in Python") (synopsis "C parser in Python")
(description (description