@@ -33,6 +33,7 @@
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2021 qblade <qblade@protonmail.com>
;;; Copyright © 2021 Lu Hui <luhux76@gmail.com>
+;;; Copyright © 2022 Brendan Tildesley <mail@brendan.scot>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -1150,36 +1151,16 @@ (define-public libpciaccess
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libpciaccess-"
- version
- ".tar.bz2"))
+ version ".tar.bz2"))
(sha256
(base32
"12glp4w1kgvmqn89lk19cgr6jccd3awxra4dxisp7pagi06rsk11"))))
(build-system gnu-build-system)
(arguments
- '(;; Make sure libpciaccess can read compressed 'pci.ids' files as
- ;; provided by pciutils.
- #:configure-flags
- (list "--with-zlib"
- (string-append "--with-pciids-path="
- (assoc-ref %build-inputs "pciutils")
- "/share/hwdata"))
-
- #:phases
- (modify-phases %standard-phases
- (add-after 'install 'add-L-zlib
- (lambda* (#:key inputs outputs #:allow-other-keys)
- ;; Provide '-LZLIB/lib' next to '-lz' in the .la file.
- (let ((zlib (assoc-ref inputs "zlib"))
- (out (assoc-ref outputs "out")))
- (substitute* (string-append out "/lib/libpciaccess.la")
- (("-lz")
- (string-append "-L" zlib "/lib -lz")))
- #t))))))
- (inputs
- (list zlib pciutils)) ;for 'pci.ids.gz'
- (native-inputs
- (list pkg-config))
+ (list
+ #:configure-flags
+ #~(list (string-append "--with-pciids-path=" #$hwdata:pci "/share/hwdata"))))
+ (inputs (list `(,hwdata "pci")))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg PCI access library")
(description "Xorg Generic PCI access library.")