diff options
Diffstat (limited to 'dev-ml/ppx_assert/files/ppx_assert-0.14.0-4.12.patch')
| -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 |