File tree 2 files changed +11
-1
lines changed
2 files changed +11
-1
lines changed Original file line number Diff line number Diff line change @@ -447,7 +447,11 @@ let make_type_expr ~desc ~level ~id =
447
447
448
448
let trie_of_type_decl ?comments info ty_decl =
449
449
match ty_decl.Types. type_kind with
450
+ #if OCAML_VERSION > = (5 ,2 ,0 )
451
+ | Types. Type_abstract _ -> [] , comments
452
+ #else
450
453
| Types. Type_abstract -> [] , comments
454
+ #endif
451
455
| Types. Type_open -> [] , comments
452
456
| Types. Type_record (fields ,_repr ) ->
453
457
List. map
Original file line number Diff line number Diff line change @@ -31,7 +31,13 @@ let mktype name ?(params=[]) ?(def=Otyp_abstract) doc = {
31
31
name = name;
32
32
ty = Some (Osig_type (
33
33
{ otype_name = name;
34
- #if OCAML_VERSION > = (4 ,12 ,0 )
34
+ #if OCAML_VERSION > = (5 ,2 ,0 )
35
+ otype_params = List. map (fun v ->
36
+ { ot_non_gen = false ;
37
+ ot_name = v;
38
+ ot_variance = Asttypes. (NoVariance , NoInjectivity ) }
39
+ ) params;
40
+ #elif OCAML_VERSION > = (4 ,12 ,0 )
35
41
otype_params = List. map (fun v -> v,Asttypes. (NoVariance , NoInjectivity )) params;
36
42
#else
37
43
otype_params = List. map (fun v -> v,(true ,true )) params;
You can’t perform that action at this time.
0 commit comments