TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: gnupg: Don't explicitly return #t from phases.

Browse source 
* gnu/packages/gnupg.scm (gnupg)[arguments]: Don't explicitly return #t
from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2021-07-04 18:46:33 +02:00 committed by Maxim Cournoyer
parent 325184e307
commit 55e5def90c
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/gnupg.scm
View file

@ -317,14 +317,12 @@ (define-public gnupg
(substitute* "scd/scdaemon.c"
(("\"(libpcsclite\\.so[^\"]*)\"" _ name)
(string-append "\"" (assoc-ref inputs "pcsc-lite")
"/lib/" name "\"")))
#t))
"/lib/" name "\"")))))
(add-after 'build 'patch-scheme-tests
(lambda _
(substitute* (find-files "tests" ".\\.scm$")
(("/usr/bin/env gpgscm")
(string-append (getcwd) "/tests/gpgscm/gpgscm")))
#t))
(string-append (getcwd) "/tests/gpgscm/gpgscm")))))
(add-before 'build 'patch-test-paths
(lambda _
(substitute* '("tests/inittests"
@ -336,8 +334,7 @@ (define-public gnupg
(substitute* "common/t-exectool.c"
(("/bin/cat") (which "cat"))
(("/bin/true") (which "true"))
(("/bin/false") (which "false")))
#t)))))
(("/bin/false") (which "false"))))))))
(home-page "https://gnupg.org/")
(synopsis "GNU Privacy Guard")
(description