me
/
guix
Archived
1
0
Fork 0
Code

gnu: usbutils: Use G-Expressions. 

* gnu/packages/linux.scm (usbutils): Use G-Expressions.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Bruno Victal 2023-03-21 16:05:23 +00:00 committed by Maxim Cournoyer
parent d89e642e84
commit 05b22726ea
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
gnu/packages/linux.scm
View File

@ -2379,23 +2379,22 @@ slabtop, tload, top, vmstat, w, watch and sysctl.")
(build-system gnu-build-system)
(outputs (list "out" "python"))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'bootstrap 'patch-bootstrap-scripts
(lambda _
(substitute* "usbhid-dump/bootstrap"
(("/bin/sh") (which "sh")))))
(add-after 'install 'separate-python-output
;; Separating one Python script shaves more than 106 MiB from :out.
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(out:python (assoc-ref outputs "python")))
(for-each (lambda (file)
(let ((old (string-append out "/" file))
(new (string-append out:python "/" file)))
(mkdir-p (dirname new))
(rename-file old new)))
(list "bin/lsusb.py"))))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-before 'bootstrap 'patch-bootstrap-scripts
(lambda _
(substitute* "usbhid-dump/bootstrap"
(("/bin/sh") (which "sh")))))
(add-after 'install 'separate-python-output
;; Separating one Python script shaves more than 106 MiB from :out.
(lambda _
(for-each (lambda (file)
(let ((old (string-append #$output "/" file))
(new (string-append #$output:python "/" file)))
(mkdir-p (dirname new))
(rename-file old new)))
(list "bin/lsusb.py")))))))
(inputs
(list eudev libusb python))
(native-inputs