haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update the OCaml 4.13 compatibility after the merge of ocaml/ocaml#10252

This commit is contained in:
Kate 2021-06-02 19:20:59 +01:00
parent 9fe8b5d838
commit 82fe82dad0
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/lib/uTop_complete.ml
View File

@ -419,7 +419,11 @@ let constructor_name { cd_id = id } = Ident.name id
let add_fields_of_type decl acc = let add_fields_of_type decl acc =
match decl.type_kind with match decl.type_kind with
#if OCAML_VERSION >= (4, 13, 0)
| Type_variant (constructors, _) ->
#else
| Type_variant constructors -> | Type_variant constructors ->
#endif
acc acc
| Type_record (fields, _) -> | Type_record (fields, _) ->
List.fold_left (fun acc field -> add (field_name field) acc) acc fields List.fold_left (fun acc field -> add (field_name field) acc) acc fields
@ -430,7 +434,11 @@ let add_fields_of_type decl acc =
let add_names_of_type decl acc = let add_names_of_type decl acc =
match decl.type_kind with match decl.type_kind with
#if OCAML_VERSION >= (4, 13, 0)
| Type_variant (constructors, _) ->
#else
| Type_variant constructors -> | Type_variant constructors ->
#endif
List.fold_left (fun acc cstr -> add (constructor_name cstr) acc) acc constructors List.fold_left (fun acc cstr -> add (constructor_name cstr) acc) acc constructors
| Type_record (fields, _) -> | Type_record (fields, _) ->
List.fold_left (fun acc field -> add (field_name field) acc) acc fields List.fold_left (fun acc field -> add (field_name field) acc) acc fields