TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: aria2: Rewrite with gexps.

Browse source 
* gnu/packages/bittorrent.scm (aria2)[arguments]: Rewrite with gexps.
This commit is contained in:
Efraim Flashner 2022-01-13 17:24:49 +02:00
parent 161091f053
commit dc64e7a1ac
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 15 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/packages/bittorrent.scm
View file

@ -38,6 +38,7 @@ (define-module (gnu packages bittorrent)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system glib-or-gtk)
#:use-module ((guix licenses) #:prefix l:) #:use-module ((guix licenses) #:prefix l:)
#:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages adns) #:use-module (gnu packages adns)
@ -308,19 +309,21 @@ (define-public aria2
"1987x4ywnnrhhfs9hi2h820c200d7nas9nd35414yh0jiihfglaq")))) "1987x4ywnnrhhfs9hi2h820c200d7nas9nd35414yh0jiihfglaq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags (list "--enable-libaria2" (list
(string-append "--with-bashcompletiondir=" #:configure-flags
%output "/etc/bash_completion.d/")) #~(list "--enable-libaria2"
(string-append "--with-bashcompletiondir="
#$output "/etc/bash_completion.d/"))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'delete-socket-tests (add-after 'unpack 'delete-socket-tests
(lambda _ (lambda _
(substitute* "test/LpdMessageDispatcherTest.cc" (substitute* "test/LpdMessageDispatcherTest.cc"
(("CPPUNIT_TEST_SUITE_REGISTRATION\\(LpdMessageDispatcherTest\\);" text) (("CPPUNIT_TEST_SUITE_REGISTRATION\\(LpdMessageDispatcherTest\\);" text)
(string-append "// " text))) (string-append "// " text)))
(substitute* "test/LpdMessageReceiverTest.cc" (substitute* "test/LpdMessageReceiverTest.cc"
(("CPPUNIT_TEST_SUITE_REGISTRATION\\(LpdMessageReceiverTest\\);" text) (("CPPUNIT_TEST_SUITE_REGISTRATION\\(LpdMessageReceiverTest\\);" text)
(string-append "// " text)))))))) (string-append "// " text))))))))
(native-inputs (native-inputs
(list cppunit ; for the tests (list cppunit ; for the tests
pkg-config)) pkg-config))