gentoo-mirror/gentoo
1
0
Fork 0
mirror of https://github.com/gentoo-mirror/gentoo.git synced 2026-09-17 02:39:08 -07:00
Code Issues Projects Releases Wiki Activity

dev-ml/ppx_assert: fix ocaml-4.12

Browse Source 
Closes: https://bugs.gentoo.org/794895
Package-Manager: Portage-3.0.20, Repoman-3.0.3
Signed-off-by: Alfredo Tupone <tupone@gentoo.org>
This commit is contained in:
Alfredo Tupone
2021-09-30 19:24:49 +02:00
parent 539a521a5e
commit 520ce0cb59
3 changed files with 36 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
dev-ml/ppx_assert/files/ppx_assert-0.14.0-4.12.patch Normal file
View File

@@ -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

4
dev-ml/ppx_assert/metadata.xml
View File

@@ -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>

2
dev-ml/ppx_assert/ppx_assert-0.14.0.ebuild
View File

@@ -27,3 +27,5 @@ DEPEND="
dev-ml/cinaps:=
"
RDEPEND="${DEPEND}"
PATCHES=( "${FILESDIR}"/${P}-4.12.patch )