gnu: util-macros: Update phase style.

* gnu/packages/xorg.scm (util-macros)[arguments]: Use MODIFY-PHASES
syntax and end phases with #t.
This commit is contained in:
Tobias Geerinckx-Rice 2018-02-20 04:05:09 +01:00
parent cb4a178b20
commit 0dc618067b
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -1863,21 +1863,22 @@ (define-public util-macros
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(arguments
`(#:phases (alist-cons-after
'unpack 'fix-makefile-in
(lambda _
(substitute* "Makefile.in"
;; Install xorg-macros.pc in PREFIX/lib/pkgconfig,
;; not PREFIX/share/pkgconfig.
(("\\$\\(datadir\\)/pkgconfig") "$(libdir)/pkgconfig")))
(alist-cons-after
'install 'post-install-cleanup
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(with-directory-excursion out
(delete-file "share/util-macros/INSTALL")
(rmdir "share/util-macros"))))
%standard-phases))))
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-makefile-in
(lambda _
(substitute* "Makefile.in"
;; Install xorg-macros.pc in PREFIX/lib/pkgconfig,
;; not PREFIX/share/pkgconfig.
(("\\$\\(datadir\\)/pkgconfig") "$(libdir)/pkgconfig"))
#t))
(add-after 'install 'post-install-cleanup
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(with-directory-excursion out
(delete-file "share/util-macros/INSTALL")
(rmdir "share/util-macros"))
#t))))))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg autoconf macros")
(description