gnu: libmtp: Use G-expressions.

* gnu/packages/libusb.scm (libmtp)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-07-24 02:00:03 +02:00
parent 237a7f6bbc
commit 555d53d486
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

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