ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gnunet: Use 'modify-phases'.

Browse source 
* 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
1 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gnu/packages/gnunet.scm
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")))
(alist-cons-after #t))
'install 'check (add-after 'install 'check
(assoc-ref %standard-phases 'check) (assoc-ref %standard-phases 'check))
(alist-delete (delete 'check))))
'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