gnu: tractor: Use gexp.

* gnu/packages/tor.scm (tractor)[native-inputs]: Drop label.
[arguments]: Use gexp; drop trailing #T from build phases.
This commit is contained in:
Ricardo Wurmus 2022-12-21 10:00:45 +01:00
parent f86475d012
commit 7c9cbc8d73
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -6,7 +6,7 @@
;;; Copyright © 20172021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 20172021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2021 Eric Bavier <bavier@posteo.net> ;;; Copyright © 2017, 2018, 2019, 2021 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020 André Batista <nandre@riseup.net> ;;; Copyright © 2020 André Batista <nandre@riseup.net>
@ -444,7 +444,7 @@ (define-public tractor
"107iwkhw9rxbp4samlcw24gdvgqh23rd7z60lrl1b4iljmhqjvcs")))) "107iwkhw9rxbp4samlcw24gdvgqh23rd7z60lrl1b4iljmhqjvcs"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("glib:bin" ,glib "bin"))) ; for glib-compile-schemas. (list (list glib "bin"))) ; for glib-compile-schemas.
(inputs (inputs
(list python-fire (list python-fire
python-psutil python-psutil
@ -453,20 +453,17 @@ (define-public tractor
python-stem python-stem
python-termcolor)) python-termcolor))
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(add-after 'install 'install-man-page #~(modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (add-after 'install 'install-man-page
(let* ((out (assoc-ref outputs "out")) (lambda _
(man1 (string-append out "/share/man/man1"))) (let ((man1 (string-append #$output "/share/man/man1")))
(install-file "tractor/man/tractor.1" man1) (install-file "tractor/man/tractor.1" man1))))
#t))) (add-after 'install 'install-gschema
(add-after 'install 'install-gschema (lambda _
(lambda* (#:key outputs #:allow-other-keys) (let ((schemas (string-append #$output "/share/glib-2.0/schemas")))
(let* ((out (assoc-ref outputs "out")) (install-file "tractor/tractor.gschema.xml" schemas)))))))
(schemas (string-append out "/share/glib-2.0/schemas")))
(install-file "tractor/tractor.gschema.xml" schemas)
#t))))))
(home-page "https://framagit.org/tractor") (home-page "https://framagit.org/tractor")
(synopsis "Setup an onion routing proxy") (synopsis "Setup an onion routing proxy")
(description (description