gnu: pciutils: Use 'modify-phases'.

* gnu/packages/pciutils.scm (pciutils)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-05-29 21:50:27 +03:00
parent fb3c855381
commit 0ef7a93d78
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 25 additions and 27 deletions

View File

@ -40,8 +40,9 @@
"0byl2f897w5lhs4bvr6p7qwcz9bllj2zyfv7nywbcbsnb9ha9wrb"))))
(build-system gnu-build-system)
(arguments
'(#:phases (alist-replace
'configure
'(#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
;; There's no 'configure' script, just a raw makefile.
(substitute* "Makefile"
@ -59,14 +60,11 @@
"SHARED := yes\n")
(("^ZLIB=.*$")
;; Ask for zlib support.
"ZLIB := yes\n")))
(alist-replace
'install
"ZLIB := yes\n"))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
;; Install the commands, library, and .pc files.
(zero? (system* "make" "install" "install-lib")))
%standard-phases))
(zero? (system* "make" "install" "install-lib")))))
;; Make sure programs have an RPATH so they can find libpciutils.so.
#:make-flags (list (string-append "LDFLAGS=-Wl,-rpath="