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

gnu: python-pyusb: Use G-Expressions.

Browse source 
* gnu/packages/usb.scm (python-pyusb) <arguments>: Use G-Expressions
  style instead of quoting.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Jean-Pierre De Jesus DIAZ 2023-09-20 12:05:26 +02:00 committed by Ludovic Courtès
parent ab8290c06a
commit c307a18415
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 17 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
gnu/packages/libusb.scm
View file

@ -288,24 +288,23 @@ (define-public python-pyusb
"1fg7knfzybzija2b01pzrzhzsj989scl12sb2ra4f503l8279k54")))) "1fg7knfzybzija2b01pzrzhzsj989scl12sb2ra4f503l8279k54"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:tests? #f ; no tests (list #:tests? #f ; no tests
#:modules ((srfi srfi-1) #:modules '((srfi srfi-1)
(srfi srfi-26) (srfi srfi-26)
(guix build utils) (guix build utils)
(guix build python-build-system)) (guix build python-build-system))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-libusb-reference (add-after 'unpack 'fix-libusb-reference
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "usb/libloader.py" (substitute* "usb/libloader.py"
(("lib = locate_library\\(candidates, find_library\\)") (("lib = locate_library\\(candidates, find_library\\)")
(string-append (string-append
"lib = \"" "lib = \""
(find (negate symbolic-link?) (find (negate symbolic-link?)
(find-files (assoc-ref inputs "libusb") (find-files (assoc-ref inputs "libusb")
"^libusb-.*\\.so\\..*")) "^libusb-.*\\.so\\..*"))
"\""))) "\""))))))))
#t)))))
(native-inputs (native-inputs
(list python-setuptools-scm)) (list python-setuptools-scm))