TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: python-pyusb: Prettify library substitution.

Browse source 
* gnu/packages/libusb.scm (python-pyusb)[arguments]: Use srfi-1 to make
the "fix-libusb-reference" phase clearer.
This commit is contained in:
Ricardo Wurmus 2016-10-30 08:15:23 +01:00
parent bae678296a
commit 67a3b2dd4e
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/libusb.scm
View file

@ -105,7 +105,8 @@ (define-public python-pyusb
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:tests? #f ;no tests `(#:tests? #f ;no tests
#:modules ((srfi srfi-26) #:modules ((srfi srfi-1)
(srfi srfi-26)
(guix build utils) (guix build utils)
(guix build python-build-system)) (guix build python-build-system))
#:phases #:phases
@ -116,11 +117,9 @@ (define-public python-pyusb
(("lib = locate_library\\(candidates, find_library\\)") (("lib = locate_library\\(candidates, find_library\\)")
(string-append (string-append
"lib = \"" "lib = \""
(car (find-files (assoc-ref inputs "libusb") (find (negate symbolic-link?)
(lambda (file stat) (find-files (assoc-ref inputs "libusb")
(and ((file-name-predicate "^libusb-.*\\.so\\..*"))
"^libusb-.*\\.so\\..*") file stat)
(not (symbolic-link? file))))))
"\""))) "\"")))
#t))))) #t)))))
(inputs (inputs