Merge pull request #169 from lthls/ocaml5.2

Add support for OCaml 5.2
OCamlPro · Feb 8, 2024 · 2a24807 · 2a24807
2 parents a4631a9 + 60358ea
commit 2a24807
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/libs/indexBuild.ml b/libs/indexBuild.ml
@@ -447,7 +447,11 @@ let make_type_expr ~desc ~level ~id =
 
 let trie_of_type_decl ?comments info ty_decl =
   match ty_decl.Types.type_kind with
+#if OCAML_VERSION >= (5,2,0)
+  | Types.Type_abstract _ -> [], comments
+#else
   | Types.Type_abstract -> [], comments
+#endif
   | Types.Type_open -> [], comments
   | Types.Type_record (fields,_repr) ->
       List.map

diff --git a/libs/indexPredefined.ml b/libs/indexPredefined.ml
@@ -31,7 +31,13 @@ let mktype name ?(params=[]) ?(def=Otyp_abstract) doc = {
   name = name;
   ty = Some (Osig_type (
       { otype_name    = name;
-  #if OCAML_VERSION >= (4,12,0)
+  #if OCAML_VERSION >= (5,2,0)
+        otype_params  = List.map (fun v ->
+                            { ot_non_gen = false;
+                              ot_name = v;
+                              ot_variance = Asttypes.(NoVariance, NoInjectivity) }
+                          ) params;
+  #elif OCAML_VERSION >= (4,12,0)
         otype_params  = List.map (fun v -> v,Asttypes.(NoVariance, NoInjectivity)) params;
   #else
         otype_params  = List.map (fun v -> v,(true,true)) params;