gnu: gnunet: Use 'modify-phases'.

* gnu/packages/gnunet.scm (gnunet)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-09-11 09:08:10 +03:00
parent b9fe72bf4d
commit 90d8ef6bcb
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93

View file

@ -247,19 +247,17 @@ (define-public gnunet
;; test_gnunet_service_arm fails; reported upstream
#:tests? #f
#:phases
(modify-phases %standard-phases
;; swap check and install phases and set paths to installed binaries
(alist-cons-before
'check 'set-path-for-check
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(setenv "GNUNET_PREFIX" (string-append out "/lib"))
(setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))))
(alist-cons-after
'install 'check
(assoc-ref %standard-phases 'check)
(alist-delete
'check
%standard-phases)))))
(add-before 'check 'set-path-for-check
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(setenv "GNUNET_PREFIX" (string-append out "/lib"))
(setenv "PATH" (string-append (getenv "PATH") ":" out "/bin")))
#t))
(add-after 'install 'check
(assoc-ref %standard-phases 'check))
(delete 'check))))
(synopsis "Secure, decentralized, peer-to-peer networking framework")
(description
"GNUnet is a framework for secure peer-to-peer networking. The