05/06: gnu: libmtp: Use G-expressions.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 555d53d486c58aa79d6ef0fd90e66a2d7d46595c
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jul 24 02:00:03 2022 +0200

    gnu: libmtp: Use G-expressions.
    
    * gnu/packages/libusb.scm (libmtp)[arguments]:
    Rewrite as G-expressions.
---
 gnu/packages/libusb.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/libusb.scm b/gnu/packages/libusb.scm
index 26eb296c21..8a5967f7b4 100644
--- a/gnu/packages/libusb.scm
+++ b/gnu/packages/libusb.scm
@@ -28,6 +28,7 @@
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (gnu packages libusb)
+  #:use-module (guix gexp)
   #:use-module (gnu packages)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
@@ -488,11 +489,9 @@ over USB.")
      ;; libmtp.pc refers to all these.
      (list libusb))
     (arguments
-     `(#:configure-flags
-       (list "--disable-static"
-             (string-append "--with-udev="
-                            (assoc-ref %outputs "out")
-                            "/lib/udev"))))
+     (list #:configure-flags
+           #~(list "--disable-static"
+                   (string-append "--with-udev=" #$output "/lib/udev"))))
     (home-page "http://libmtp.sourceforge.net/";)
     (synopsis "Library implementing the Media Transfer Protocol")
     (description "Libmtp implements an MTP (Media Transfer Protocol)