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