diff options
author | 2021-09-30 19:24:49 +0200 | |
---|---|---|
committer | 2021-09-30 19:25:46 +0200 | |
commit | 520ce0cb598b20c344c4e8698f0c64fffdf8816a (patch) | |
tree | d5c97765783cd7b02b7ea68a6e228738385c4df2 /dev-ml/ppx_assert/files | |
parent | media-gfx/kphotoalbum: Set VIRTUALX_REQUIRED=test (diff) | |
download | gentoo-520ce0cb598b20c344c4e8698f0c64fffdf8816a.tar.gz gentoo-520ce0cb598b20c344c4e8698f0c64fffdf8816a.tar.bz2 gentoo-520ce0cb598b20c344c4e8698f0c64fffdf8816a.zip |
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>
Diffstat (limited to 'dev-ml/ppx_assert/files')
-rw-r--r-- | dev-ml/ppx_assert/files/ppx_assert-0.14.0-4.12.patch | 30 |
1 files changed, 30 insertions, 0 deletions
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 000000000000..80ff9fb1eb47 --- /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 |