05/18: gnu: public-inbox: Update to 1.8.0.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 1e1de837190d1c08fae369a4cb3bf43a433abed1
Author: Thiago Jung Bauermann <bauermann@kolabnow.com>
AuthorDate: Sun May 15 19:02:30 2022 -0300

    gnu: public-inbox: Update to 1.8.0.
    
    Some fixes are needed in both the testsuite and the package itself before
    tests can pass so disable them for now.
    
    Also, the lei command needs curl to work, so add it to the PATH in
    ‘wrap-program’.
    
    * gnu/packages/mail.scm (public-inbox)[version]: Change to 1.8.0.
    [source]: Update hash.
    [arguments]<#:tests?>: Set to #f.
    [arguments]<#:phases>{wrap-programs}: Add curl to PATH.
    [inputs]: Add curl and perl-socket-msghdr.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/mail.scm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 8312aca2e0..f6332e29fd 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -4070,7 +4070,7 @@ Git and exports them in maildir format or to an MDA 
through a pipe.")
 (define-public public-inbox
   (package
     (name "public-inbox")
-    (version "1.6.1")
+    (version "1.8.0")
     (source
      (origin (method git-fetch)
              (uri (git-reference
@@ -4078,11 +4078,12 @@ Git and exports them in maildir format or to an MDA 
through a pipe.")
                    (commit (string-append "v" version))))
              (sha256
               (base32
-               "0mlwnp5knr7rk9kv8grlh342wsq2193m22zs83cjn9p7x9r2x5f9"))
+               "0xni1l54v1z3p0zb52807maay0yqabp8jgf5iras5zmhgjyk3swz"))
              (file-name (git-file-name name version))))
     (build-system perl-build-system)
     (arguments
-     '(#:phases
+     '(#:tests? #f
+       #:phases
        (modify-phases %standard-phases
          (add-before 'configure 'qualify-paths
            (lambda* (#:key inputs #:allow-other-keys)
@@ -4115,13 +4116,15 @@ Git and exports them in maildir format or to an MDA 
through a pipe.")
                     ;; 'git' is invoked in various files of the PublicInbox
                     ;; perl module.
                     `("PATH" ":" prefix
-                      (,(dirname (search-input-file inputs "/bin/git"))))))
+                      (,(dirname (search-input-file inputs "/bin/git"))
+                       ,(dirname (search-input-file inputs "/bin/curl"))))))
                 (find-files (string-append out "/bin")))))))))
     (native-inputs
      (list ;; For testing.
            lsof openssl))
     (inputs
      (list bash-minimal
+           curl
            git
            perl-dbd-sqlite
            perl-dbi
@@ -4134,6 +4137,7 @@ Git and exports them in maildir format or to an MDA 
through a pipe.")
            perl-plack-middleware-reverseproxy
            perl-plack
            perl-search-xapian
+           perl-socket-msghdr
            perl-timedate
            perl-uri-escape
            perl-inline-c