nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/pciutils.scm
View File

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