[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
07/08: gnu: usbutils: Use G-Expressions.
From: |
guix-commits |
Subject: |
07/08: gnu: usbutils: Use G-Expressions. |
Date: |
Mon, 17 Apr 2023 17:52:22 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 92d49c8cd81a3345f097817adfbae570a6b1f8e9
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Tue Mar 21 16:05:23 2023 +0000
gnu: usbutils: Use G-Expressions.
* gnu/packages/linux.scm (usbutils): Use G-Expressions.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
gnu/packages/linux.scm | 33 ++++++++++++++++-----------------
1 file changed, 16 insertions(+), 17 deletions(-)
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index b3660c3eeb..401536685b 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -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
- branch master updated (63500cbbee -> 84bd7cf918), guix-commits, 2023/04/17
- 03/08: substitute: Download nar from another server upon ETIMEDOUT., guix-commits, 2023/04/17
- 02/08: services: agetty: 'term-console' succeeds by default., guix-commits, 2023/04/17
- 01/08: environment: Really auto-load (guix scripts pack)., guix-commits, 2023/04/17
- 05/08: gnu: Add kitsas., guix-commits, 2023/04/17
- 04/08: ssh: Silence remote daemon messages when sending store items., guix-commits, 2023/04/17
- 07/08: gnu: usbutils: Use G-Expressions.,
guix-commits <=
- 08/08: gnu: remmina: Update to 1.4.29., guix-commits, 2023/04/17
- 06/08: gnu: usbutils: Make package description different from synopsis., guix-commits, 2023/04/17