gnu: libepoxy: Use 'modify-phases'.

* gnu/packages/gl.scm (libepoxy)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2016-08-23 21:28:24 +03:00
parent 70cf677c5c
commit 5f8dd6dca8
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 25 additions and 25 deletions

View File

@ -465,11 +465,12 @@ OpenGL graphics API.")
"1d1brhwfmlzgnphmdwlvn5wbcrxsdyzf1qfcf8nb89xqzznxs037")))) "1d1brhwfmlzgnphmdwlvn5wbcrxsdyzf1qfcf8nb89xqzznxs037"))))
(arguments (arguments
`(#:phases `(#:phases
(alist-cons-after (modify-phases %standard-phases
(add-after
'unpack 'autoreconf 'unpack 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vif"))) (zero? (system* "autoreconf" "-vif"))))
(alist-cons-before (add-before
'configure 'patch-paths 'configure 'patch-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((python (assoc-ref inputs "python")) (let ((python (assoc-ref inputs "python"))
@ -489,8 +490,7 @@ OpenGL graphics API.")
'((substitute* '"test/dlwrap.c" '((substitute* '"test/dlwrap.c"
(("\"GLIBC_2\\.0\"") "\"GLIBC_2.0\", \"GLIBC_2.4\""))) (("\"GLIBC_2\\.0\"") "\"GLIBC_2.0\", \"GLIBC_2.4\"")))
'()) '())
#t)) #t))))))
%standard-phases))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)