04/10: gnu: fprintd: Remove phase return values.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 9cbf66b6c7297bd47fac93a667b23a40b925ef7f
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sat Dec 11 02:13:04 2021 +0100

    gnu: fprintd: Remove phase return values.
    
    * gnu/packages/freedesktop.scm (fprintd)[arguments]:
    Don't explicitly return #t from phases.
---
 gnu/packages/freedesktop.scm | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index dc6a374..27b2600 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -1715,31 +1715,26 @@ software.")
                   (string-append set "'" out "/share/polkit-1/actions/'\n"))
                  (("(dbus_data_dir = ).*" _ set)
                   (string-append set "get_option('prefix')"
-                                 " / get_option('datadir')\n")))
-               #t)))
+                                 " / get_option('datadir')\n"))))))
          (add-before 'configure 'patch-mistake
            (lambda _
              (substitute* "meson.build"
                (("(storage_path = )(get_option\\('prefix'\\))(.*)"
                  _ set mistake value)
-                (string-append set "''" value "\n")))
-             #t))
+                (string-append set "''" value "\n")))))
          (add-before 'configure 'patch-systemd-dependencies
            (lambda _
              (substitute* "meson.build"
-               (("'(libsystemd|systemd)'") "'libelogind'"))
-             #t))
+               (("'(libsystemd|systemd)'") "'libelogind'"))))
          (add-before 'configure 'ignore-test-dependencies
            (lambda _
              (substitute* "meson.build"
                (("pam_wrapper_dep .*") "")
-               ((".*'(cairo|dbus|dbusmock|gi|pypamtest)': .*,.*") ""))
-             #t))
+               ((".*'(cairo|dbus|dbusmock|gi|pypamtest)': .*,.*") ""))))
          (add-before 'install 'no-polkit-magic
            ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
            (lambda _
-             (setenv "PKEXEC_UID" "something")
-             #t)))
+             (setenv "PKEXEC_UID" "something"))))
        #:tests? #f))                    ; XXX depend on unpackaged packages
     (native-inputs
      `(("gettext" ,gettext-minimal)