me
/
guix
Archived
1
0
Fork 0
Code

gnu: usbutils: Add ‘python’ output. 

* gnu/packages/linux.scm (usbutils)[outputs]: Add ‘python’.
[arguments]: Add ‘separate-python-output’ phase.
master
Tobias Geerinckx-Rice 2019-05-09 01:08:08 +02:00
parent a6592732cf
commit 429a38a009
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/linux.scm
View File

@ -824,6 +824,7 @@ slabtop, and skill.")
(sha256
(base32 "0iiy0q7fzikavmdsjsb0sl9kp3gfh701qwyjjccvqh0qz4jlcqw8"))))
(build-system gnu-build-system)
(outputs (list "out" "python"))
(arguments
`(#:phases
(modify-phases %standard-phases
@ -835,7 +836,19 @@ slabtop, and skill.")
;; Don't let autogen.sh run configure with bogus options & CFLAGS.
(substitute* "autogen.sh"
(("^\\./configure.*") ""))
#t)))))
#t))
(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"))
#t))))))
(inputs
`(("eudev" ,eudev)
("libusb" ,libusb)