From 57ba3dac9c697df3ff84d9e86d91b66566bc01d8 Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Fri, 29 Jul 2022 02:08:00 +0300
Subject: gnu: pplacer: Fix building.

* gn/packages/ocaml.scm (ocaml4.07-lwt-5.5.0): New variable.
(build-with-ocaml4.07): New procedure.
* gn/packages/bioinformatics.scm (pplacer): Wrap with
build-with-ocaml4.07.
---
 gn/packages/bioinformatics.scm |  4 +++-
 gn/packages/ocaml.scm          | 27 +++++++++++++++++++++++++++
 2 files changed, 30 insertions(+), 1 deletion(-)
 create mode 100644 gn/packages/ocaml.scm

diff --git a/gn/packages/bioinformatics.scm b/gn/packages/bioinformatics.scm
index 8a6de69..2055785 100644
--- a/gn/packages/bioinformatics.scm
+++ b/gn/packages/bioinformatics.scm
@@ -21,6 +21,7 @@
   #:use-module (gnu packages)
   #:use-module (gn packages crates-io)
   #:use-module (gn packages java)
+  #:use-module (gn packages ocaml)
   #:use-module (gn packages python)
   #:use-module (gn packages twint)
   #:use-module (gnu packages algebra)
@@ -2661,6 +2662,7 @@ protein alignments and syntenic genomic alignments.")
 
 (define-public pplacer
   (let ((commit "807f6f3"))
+   (build-with-ocaml4.07
     (package
       (name "pplacer")
       ;; The commit should be updated with each version change.
@@ -2774,7 +2776,7 @@ reference alignment.  Pplacer is designed to be fast, to give useful
 information about uncertainty, and to offer advanced visualization and
 downstream analysis.")
       (home-page "https://matsen.fhcrc.org/pplacer/")
-      (license license:gpl3))))
+      (license license:gpl3)))))
 
 (define-public python2-biopython
   (python2-package python-biopython))
diff --git a/gn/packages/ocaml.scm b/gn/packages/ocaml.scm
new file mode 100644
index 0000000..4aa2543
--- /dev/null
+++ b/gn/packages/ocaml.scm
@@ -0,0 +1,27 @@
+(define-module (gn packages ocaml)
+  #:use-module (guix packages)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system ocaml)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages ocaml))
+
+;; This is the last version supported by ocaml-4.07.
+(define-public ocaml4.07-lwt-5.5.0
+  (package-with-ocaml4.07
+    (package
+      (inherit ocaml-lwt)
+      (name "ocaml-lwt")
+      (version "5.5.0")
+      (source
+        (origin
+          (method git-fetch)
+          (uri (git-reference
+                 (url "https://github.com/ocsigen/lwt")
+                 (commit version)))
+          (file-name (git-file-name name version))
+          (sha256 (base32
+                   "1jbjz2rsz3j56k8vh5qlmm87hhkr250bs2m3dvpy9vsri8rkzj9z"))))
+      (properties '()))))
+
+(define-public build-with-ocaml4.07
+  (package-input-rewriting/spec `(("ocaml4.07-lwt" . ,(const ocaml4.07-lwt-5.5.0)))))
-- 
cgit v1.2.3