03/158: gnu: r-httpuv: Update to 1.6.9.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 5050034b4e4e325fb43ada2d31f3537028623bea
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Fri Mar 17 13:33:34 2023 +0100

    gnu: r-httpuv: Update to 1.6.9.
    
    * gnu/packages/cran.scm (r-httpuv): Update to 1.6.9.
    [inputs]: Replace libuv with libuv-for-r-httpuv.
    [arguments]: Patch Makevars to link with that variant of libuv.
---
 gnu/packages/cran.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index c4524cea5c..bda7725e21 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -3121,16 +3121,13 @@ Zucchini.")
 (define-public r-httpuv
   (package
     (name "r-httpuv")
-    (version "1.6.8")
+    (version "1.6.9")
     (source (origin
               (method url-fetch)
               (uri (cran-uri "httpuv" version))
               (sha256
                (base32
-                "0fljspgdiihn736s8wj6ri28sggw1sd3zfi5qav3gzrsqm2z29xz"))
-              ;; Unvendor bundled libraries. As of 1.5.4 the vendored libuv
-              ;; only contains fixes for building on Solaris.
-              (patches (search-patches "r-httpuv-1.6.6-unvendor-libuv.patch"))
+                "0pfrhparpsgrrlgnwwdjb4npklrqka709hh7a2s76x7s49dz4xwd"))
               (modules '((guix build utils)))
               ;; Cannot unbundle http-parser, because it contains local
               ;; modifications.
@@ -3142,6 +3139,11 @@ Zucchini.")
        (modify-phases %standard-phases
          (add-after 'unpack 'unbundle-libuv
            (lambda* (#:key outputs #:allow-other-keys)
+             (substitute* "src/Makevars"
+               (("PKG_LIBS = ./libuv/.libs/libuv.a")
+                "PKG_LIBS = -luv")
+               (("\\$\\(SHLIB\\): libuv/.libs/libuv.a")
+                "$(SHLIB): "))
              (substitute* (find-files "src" "\\.cpp$|\\.h$")
                (("\"libuv/include/uv\\.h\"")
                 "<uv.h>"))
@@ -3150,7 +3152,7 @@ Zucchini.")
                (("uv_pipe_init\\(pLoop, &pSocket->handle\\.pipe, true\\);")
                 "uv_pipe_init(pLoop, &pSocket->handle.pipe, 0);")))))))
     (inputs
-     (list libuv zlib))
+     (list libuv-for-r-httpuv zlib))
     (propagated-inputs
      (list r-later r-promises r-r6 r-rcpp))
     (home-page "https://github.com/rstudio/httpuv";)