gnu: r-mzr: Remove bundled copy of boost.

* gnu/packages/bioinformatics.scm (r-mzr)[source]: Remove boost source.
[arguments]: Add build phase "use-system-boost" to link with our boost
package and avoid building the bundled sources.
This commit is contained in:
Ricardo Wurmus 2017-11-06 22:39:05 +01:00
parent 34b9675449
commit 15ca195979
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -8899,9 +8899,26 @@ (define-public r-mzr
(uri (bioconductor-uri "mzR" version)) (uri (bioconductor-uri "mzR" version))
(sha256 (sha256
(base32 (base32
"1x3gp30sfxz2v3k3swih9kff9b2rvk7hzhnlkp6ywlnn2wgb0q8c")))) "1x3gp30sfxz2v3k3swih9kff9b2rvk7hzhnlkp6ywlnn2wgb0q8c"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "src/boost")
#t))))
(properties `((upstream-name . "mzR"))) (properties `((upstream-name . "mzR")))
(build-system r-build-system) (build-system r-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'use-system-boost
(lambda _
(substitute* "src/Makevars"
(("\\./boost/libs.*") "")
(("ARCH_OBJS=" line)
(string-append line
"\nARCH_LIBS=-lboost_system -lboost_regex \
-lboost_iostreams -lboost_thread -lboost_filesystem -lboost_chrono\n")))
#t)))))
(inputs (inputs
`(("boost" ,boost) ; use this instead of the bundled boost sources `(("boost" ,boost) ; use this instead of the bundled boost sources
("netcdf" ,netcdf))) ("netcdf" ,netcdf)))