me/guix
Archived
1
0
Fork 0
Code Activity

gnu: usbutils: Use G-Expressions.

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

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
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) (build-system gnu-build-system)
(outputs (list "out" "python")) (outputs (list "out" "python"))
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(add-before 'bootstrap 'patch-bootstrap-scripts #~(modify-phases %standard-phases
(lambda _ (add-before 'bootstrap 'patch-bootstrap-scripts
(substitute* "usbhid-dump/bootstrap" (lambda _
(("/bin/sh") (which "sh"))))) (substitute* "usbhid-dump/bootstrap"
(add-after 'install 'separate-python-output (("/bin/sh") (which "sh")))))
;; Separating one Python script shaves more than 106 MiB from :out. (add-after 'install 'separate-python-output
(lambda* (#:key outputs #:allow-other-keys) ;; Separating one Python script shaves more than 106 MiB from :out.
(let ((out (assoc-ref outputs "out")) (lambda _
(out:python (assoc-ref outputs "python"))) (for-each (lambda (file)
(for-each (lambda (file) (let ((old (string-append #$output "/" file))
(let ((old (string-append out "/" file)) (new (string-append #$output:python "/" file)))
(new (string-append out:python "/" file))) (mkdir-p (dirname new))
(mkdir-p (dirname new)) (rename-file old new)))
(rename-file old new))) (list "bin/lsusb.py")))))))
(list "bin/lsusb.py"))))))))
(inputs (inputs
(list eudev libusb python)) (list eudev libusb python))
(native-inputs (native-inputs