Archived
1
0
Fork 0

gnu: gnunet: Fix indentation and use gexps.

* gnu/packages/gnunet.scm (gnunet): Fix indentation.
[arguments]: Use gexps and delete trailing #t.
This commit is contained in:
Maxim Cournoyer 2023-03-31 11:39:21 -04:00
parent 99b25b1313
commit 2d4b61d014
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -13,6 +13,7 @@
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2023 Adam Faiz <adam.faiz@disroot.org> ;;; Copyright © 2023 Adam Faiz <adam.faiz@disroot.org>
;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -31,6 +32,7 @@
(define-module (gnu packages gnunet) (define-module (gnu packages gnunet)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages file) #:use-module (gnu packages file)
#:use-module (gnu packages aidc) #:use-module (gnu packages aidc)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
@ -307,21 +309,21 @@ supports HTTP, HTTPS and GnuTLS.")
python-sphinx python-sphinx
python-sphinx-rtd-theme python-sphinx-rtd-theme
xxd xxd
(@ (gnu packages base) which))) which))
(arguments (arguments
'(#:parallel-tests? #f ; Parallel tests aren't supported. (list
#:parallel-tests? #f ;parallel tests aren't supported
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'check 'set-env-var-for-tests (add-before 'check 'set-env-var-for-tests
(lambda _ (lambda _
(setenv "LANG" "en_US.UTF-8"))) (setenv "LANG" "en_US.UTF-8")))
;; Swap 'check and 'install phases and add installed binaries to $PATH. ;; Swap 'check and 'install phases and add installed binaries to $PATH.
(add-before 'check 'set-path-for-check (add-before 'check 'set-path-for-check
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out"))) (setenv "GNUNET_PREFIX" (string-append #$output "/lib"))
(setenv "GNUNET_PREFIX" (string-append out "/lib")) (setenv "PATH" (string-append (getenv "PATH") ":"
(setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))) #$output "/bin"))))
#t))
(delete 'check) (delete 'check)
(add-after 'install 'check (add-after 'install 'check
(assoc-ref %standard-phases 'check))))) (assoc-ref %standard-phases 'check)))))