From 520ce0cb598b20c344c4e8698f0c64fffdf8816a Mon Sep 17 00:00:00 2001
From: Alfredo Tupone <tupone@gentoo.org>
Date: Thu, 30 Sep 2021 19:24:49 +0200
Subject: [PATCH] dev-ml/ppx_assert: fix ocaml-4.12

Closes: https://bugs.gentoo.org/794895
Package-Manager: Portage-3.0.20, Repoman-3.0.3
Signed-off-by: Alfredo Tupone <tupone@gentoo.org>
---
 .../files/ppx_assert-0.14.0-4.12.patch        | 30 +++++++++++++++++++
 dev-ml/ppx_assert/metadata.xml                |  4 +++
 dev-ml/ppx_assert/ppx_assert-0.14.0.ebuild    |  2 ++
 3 files changed, 36 insertions(+)
 create mode 100644 dev-ml/ppx_assert/files/ppx_assert-0.14.0-4.12.patch

diff --git a/dev-ml/ppx_assert/files/ppx_assert-0.14.0-4.12.patch b/dev-ml/ppx_assert/files/ppx_assert-0.14.0-4.12.patch
new file mode 100644
index 0000000000000..80ff9fb1eb47c
--- /dev/null
+++ b/dev-ml/ppx_assert/files/ppx_assert-0.14.0-4.12.patch
@@ -0,0 +1,30 @@
+--- a/runtime-lib/runtime.ml	2021-09-30 19:07:51.592766183 +0200
++++ b/runtime-lib/runtime.ml	2021-09-30 19:11:18.035634157 +0200
+@@ -71,7 +71,7 @@
+   end;
+   `Fail (expect, got)
+ 
+-let test_result_or_eq ~sexpifier ~comparator ?equal ~expect ~got =
++let test_result_or_eq ~sexpifier ~comparator ~equal ~expect ~got =
+   let pass =
+     match equal with
+     | None -> comparator got expect = 0
+@@ -89,7 +89,7 @@
+   ]
+ 
+ let test_eq ~pos ~sexpifier ~comparator ~here ?message ?equal t1 t2 =
+-  match test_result_or_eq ~sexpifier ~comparator ?equal ~expect:t1 ~got:t2 with
++  match test_result_or_eq ~sexpifier ~comparator ~equal ~expect:t1 ~got:t2 with
+   | `Pass -> ()
+   | `Fail (t1, t2) -> test_eq_failed ~message ~pos ~here ~t1 ~t2
+ 
+@@ -99,7 +99,7 @@
+     Sexp.List [Sexp.Atom "got"; got];
+   ]
+ 
+-let test_result ~pos ~sexpifier ~comparator ~here ?message ?equal ~expect ~got =
+-  match test_result_or_eq ~sexpifier ~comparator ?equal ~expect ~got with
++let[@warning "-16"] test_result ~pos ~sexpifier ~comparator ~here ?message ?equal ~expect ~got =
++  match test_result_or_eq ~sexpifier ~comparator ~equal ~expect ~got with
+   | `Pass -> ()
+   | `Fail (expect, got) -> test_result_failed ~message ~pos ~here ~expect ~got
diff --git a/dev-ml/ppx_assert/metadata.xml b/dev-ml/ppx_assert/metadata.xml
index d2c8c92d51d3a..d0d7bf7876c6e 100644
--- a/dev-ml/ppx_assert/metadata.xml
+++ b/dev-ml/ppx_assert/metadata.xml
@@ -1,6 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE pkgmetadata SYSTEM "https://www.gentoo.org/dtd/metadata.dtd">
 <pkgmetadata>
+	<maintainer type="project">
+		<email>ml@gentoo.org</email>
+		<name>ML</name>
+	</maintainer>
 	<maintainer type="person">
 		<email>gienah@gentoo.org</email>
 		<name>Mark Wright</name>
diff --git a/dev-ml/ppx_assert/ppx_assert-0.14.0.ebuild b/dev-ml/ppx_assert/ppx_assert-0.14.0.ebuild
index 4db2bc4b5920e..0be3c6c2301bc 100644
--- a/dev-ml/ppx_assert/ppx_assert-0.14.0.ebuild
+++ b/dev-ml/ppx_assert/ppx_assert-0.14.0.ebuild
@@ -27,3 +27,5 @@ DEPEND="
 			dev-ml/cinaps:=
 "
 RDEPEND="${DEPEND}"
+
+PATCHES=( "${FILESDIR}"/${P}-4.12.patch )