branch master updated: gnu: r-cytolib: Update to 2.14.1.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

rekado pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 8ca35ca44f gnu: r-cytolib: Update to 2.14.1.
8ca35ca44f is described below

commit 8ca35ca44f177dfd54d62b18748819f0f08e7828
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sun Jan 21 00:16:14 2024 +0100

    gnu: r-cytolib: Update to 2.14.1.
    
    * gnu/packages/bioconductor.scm (r-cytolib): Update to 2.14.1.
    [source]: Do not unbundle included boost.
    [arguments]: Remove.
    [inputs]: Remove boost.
    
    Change-Id: Ibe26b9df3f73e67fb9f53676a2c27a5aed714895
---
 gnu/packages/bioconductor.scm | 30 ++++++------------------------
 1 file changed, 6 insertions(+), 24 deletions(-)

diff --git a/gnu/packages/bioconductor.scm b/gnu/packages/bioconductor.scm
index 3a717cafa7..c0f6b72cf8 100644
--- a/gnu/packages/bioconductor.scm
+++ b/gnu/packages/bioconductor.scm
@@ -18097,41 +18097,23 @@ datasets, which increases the analytical flexibility 
and the statistical power
 of the analyses while minimizing technical noise.")
       (license license:expat))))
 
+;; This package bundles a version of Boost.  We cannot use the latest version
+;; of Boost here, as we also need to make sure that the BH (r-bh) package is
+;; compatible with whatever this package bundles.
 (define-public r-cytolib
   (package
     (name "r-cytolib")
-    (version "2.14.0")
+    (version "2.14.1")
     (source
      (origin
        (method url-fetch)
        (uri (bioconductor-uri "cytolib" version))
        (sha256
         (base32
-         "1r2slhzrp3gf45k5gknqgj3vjz7p0rx2yjzrbp020inj82fp4mgi"))
-       ;; Remove bundled boost sources
-       (modules '((guix build utils)))
-       (snippet
-        '(delete-file-recursively "src/boost"))))
+         "1kagik93ddcl3m1i2bqzzlh18lbxywfn3pxmp47p45kayzxzldrf"))))
     (properties `((upstream-name . "cytolib")))
     (build-system r-build-system)
-    (arguments
-     (list
-      #:phases
-      #~(modify-phases %standard-phases
-          (add-after 'unpack 'unbundle
-            (lambda _
-              (substitute* "src/Makevars.in"
-                (("\\$\\(USERLIB\\): \\$\\{boost_fs_objs\\}")
-                 "$(USERLIB):")
-                (("\\$\\{cytolib_objs\\} \\$\\{boost_fs_objs\\} 
\\$\\{boost_sys_objs\\}")
-                 "${cytolib_objs}")
-                (("PKG_CPPFLAGS =")
-                 "PKG_CPPFLAGS = -lboost_filesystem")
-                #;
-                (("^BOOSTFSLIB.*")
-                 (string-append "BOOSTFSLIB="
-                                #$(this-package-input "boost") 
"/libboost_filesystem.so\n"))))))))
-    (inputs (list boost openblas protobuf zlib))
+    (inputs (list openblas protobuf zlib))
     (native-inputs
      (list r-knitr))
     (propagated-inputs