File tree Expand file tree Collapse file tree 1 file changed +9
-0
lines changed Expand file tree Collapse file tree 1 file changed +9
-0
lines changed Original file line number Diff line number Diff line change @@ -1041,16 +1041,25 @@ and read_signature_noenv env parent (items : Odoc_model.Compat.signature) =
1041
1041
else shadowed
1042
1042
in
1043
1043
loop (ModuleType mtd :: acc, shadowed) rest
1044
+ #if OCAML_VERSION < (5 ,1 ,0 )
1044
1045
| Sig_class (id, cl, rec_status, _) :: Sig_class_type _
1045
1046
:: Sig_type _ :: Sig_type _ :: rest ->
1047
+ #else
1048
+ | Sig_class (id, cl, rec_status, _) :: Sig_class_type _
1049
+ :: Sig_type _ :: rest ->
1050
+ #endif
1046
1051
let cl = read_class_declaration env parent id cl in
1047
1052
let shadowed =
1048
1053
if Env. is_shadowed env id
1049
1054
then { shadowed with s_classes = Ident. name id :: shadowed .s_classes }
1050
1055
else shadowed
1051
1056
in
1052
1057
loop (Class (read_type_rec_status rec_status, cl)::acc, shadowed) rest
1058
+ #if OCAML_VERSION < (5 ,1 ,0 )
1053
1059
| Sig_class_type (id , cltyp , rec_status , _ )::Sig_type _ ::Sig_type _ ::rest ->
1060
+ #else
1061
+ | Sig_class_type (id , cltyp , rec_status , _ )::Sig_type _ ::rest ->
1062
+ #endif
1054
1063
let cltyp = read_class_type_declaration env parent id cltyp in
1055
1064
let shadowed =
1056
1065
if Env. is_shadowed env id
You can’t perform that action at this time.
0 commit comments