Blame odoc-1.5.0-ocaml411.patch
|
 |
67c27b5 |
diff -ur odoc-1.5.0.old/src/loader/cmt.ml odoc-1.5.0.new/src/loader/cmt.ml
|
|
|
67c27b5 |
--- odoc-1.5.0.old/src/loader/cmt.ml 2020-02-07 19:11:54.000000000 +0000
|
|
|
67c27b5 |
+++ odoc-1.5.0.new/src/loader/cmt.ml 2020-04-22 14:13:53.458010790 +0100
|
|
|
67c27b5 |
@@ -78,10 +78,6 @@
|
|
|
67c27b5 |
read_pattern env parent doc pat
|
|
|
67c27b5 |
| Tpat_lazy pat ->
|
|
|
67c27b5 |
read_pattern env parent doc pat
|
|
|
67c27b5 |
-#if OCAML_MAJOR = 4 && OCAML_MINOR >= 08
|
|
|
67c27b5 |
- | Tpat_exception pat ->
|
|
|
67c27b5 |
- read_pattern env parent doc pat
|
|
|
67c27b5 |
-#endif
|
|
|
67c27b5 |
|
|
|
67c27b5 |
let read_value_binding env parent vb =
|
|
|
67c27b5 |
let container = (parent : Identifier.Signature.t :> Identifier.LabelParent.t) in
|
|
|
67c27b5 |
diff -ur odoc-1.5.0.old/src/loader/doc_attr.ml odoc-1.5.0.new/src/loader/doc_attr.ml
|
|
|
67c27b5 |
--- odoc-1.5.0.old/src/loader/doc_attr.ml 2020-02-07 19:11:54.000000000 +0000
|
|
|
67c27b5 |
+++ odoc-1.5.0.new/src/loader/doc_attr.ml 2020-04-22 14:13:03.597352779 +0100
|
|
|
67c27b5 |
@@ -34,7 +34,7 @@
|
|
|
67c27b5 |
#if OCAML_MAJOR = 4 && OCAML_MINOR = 02
|
|
|
67c27b5 |
Pexp_constant (Const_string (text, _))
|
|
|
67c27b5 |
#else
|
|
|
67c27b5 |
- Pexp_constant (Pconst_string (text, _))
|
|
|
67c27b5 |
+ Pexp_constant (Pconst_string (text, _, _))
|
|
|
67c27b5 |
#endif
|
|
|
67c27b5 |
; pexp_loc = loc; _}, _); _}] ->
|
|
|
67c27b5 |
Some (text, loc)
|