~ruther/guix-local: gnu: gnupg: Don't explicitly return #t from phases.

55e5def90c4526df4d9bac85b2406331b2f9e691 — Tobias Geerinckx-Rice 5 years ago 325184e

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

* gnu/packages/gnupg.scm (gnupg)[arguments]: Don't explicitly return #t
from phases.

patch browse .tar.gz .zip

1 files changed, 3 insertions(+), 6 deletions(-)

M gnu/packages/gnupg.scm

M gnu/packages/gnupg.scm => gnu/packages/gnupg.scm +3 -6

@@ 317,14 317,12 @@ compatible to GNU Pth.")
             (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 @@ compatible to GNU Pth.")
             (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