17/62: gnu: jansson: Update to 2.14.

[guix-commits]

mbakke pushed a commit to branch core-updates
in repository guix.

commit fdd4eb53731ba89b8c434fdd88b82301c0e83aa7
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sun Jun 26 01:02:30 2022 +0200

    gnu: jansson: Update to 2.14.
    
    * gnu/packages/web.scm (jansson): Update to 2.14.
    [source](uri): Change to new download location.
    [arguments]: Add #:phases to fix a test failure.
    [home-page]: Follow redirect.
---
 gnu/packages/web.scm | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 006ac26ace..294d8f5ab3 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -1029,19 +1029,29 @@ libraries for working with JNLP applets.")
 (define-public jansson
   (package
     (name "jansson")
-    (version "2.13.1")
+    (version "2.14")
     (source (origin
              (method url-fetch)
-             (uri
-              (string-append "http://www.digip.org/jansson/releases/jansson-";
-                             version ".tar.bz2"))
+             (uri (string-append "https://github.com/akheron/jansson";
+                                 "/releases/download/v" version
+                                 "/jansson-" version ".tar.bz2"))
              (sha256
               (base32
-               "1g8h18vh8gyxlwfmvdivdp1siad26ywj5zr4j4avgdyjg7wa147f"))))
+               "1fdgji964mrrz19glx0zh91asji542fvybymvzk6rrbagkr5dagv"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:configure-flags '("--disable-static")))
-    (home-page "http://www.digip.org/jansson/";)
+     (list
+      #:configure-flags #~'("--disable-static")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-tests
+            (lambda _
+              ;; Take a fix from upstream for testing with symbol versioning:
+              ;; https://github.com/akheron/jansson/pull/593
+              (substitute* "test/suites/api/check-exports"
+                (("(grep ' \\[DT\\] ' \\$test_log/symbols.*) \\| sort" _ cmd)
+                 (string-append cmd "| sed 's/@@libjansson.*//' | sort"))))))))
+    (home-page "https://github.com/akheron/jansson";)
     (synopsis "JSON C library")
     (description
      "Jansson is a C library for encoding, decoding and manipulating JSON