me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/packages/gnupg.scm (gnupg)[arguments]: Don't explicitly return #t
from phases.
master
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 @@ compatible to GNU Pth.")
(substitute* "scd/scdaemon.c" (substitute* "scd/scdaemon.c"
(("\"(libpcsclite\\.so[^\"]*)\"" _ name) (("\"(libpcsclite\\.so[^\"]*)\"" _ name)
(string-append "\"" (assoc-ref inputs "pcsc-lite") (string-append "\"" (assoc-ref inputs "pcsc-lite")
"/lib/" name "\""))) "/lib/" name "\"")))))
#t))
(add-after 'build 'patch-scheme-tests (add-after 'build 'patch-scheme-tests
(lambda _ (lambda _
(substitute* (find-files "tests" ".\\.scm$") (substitute* (find-files "tests" ".\\.scm$")
(("/usr/bin/env gpgscm") (("/usr/bin/env gpgscm")
(string-append (getcwd) "/tests/gpgscm/gpgscm"))) (string-append (getcwd) "/tests/gpgscm/gpgscm")))))
#t))
(add-before 'build 'patch-test-paths (add-before 'build 'patch-test-paths
(lambda _ (lambda _
(substitute* '("tests/inittests" (substitute* '("tests/inittests"
@ -336,8 +334,7 @@ compatible to GNU Pth.")
(substitute* "common/t-exectool.c" (substitute* "common/t-exectool.c"
(("/bin/cat") (which "cat")) (("/bin/cat") (which "cat"))
(("/bin/true") (which "true")) (("/bin/true") (which "true"))
(("/bin/false") (which "false"))) (("/bin/false") (which "false"))))))))
#t)))))
(home-page "https://gnupg.org/") (home-page "https://gnupg.org/")
(synopsis "GNU Privacy Guard") (synopsis "GNU Privacy Guard")
(description (description