Skip to content

Commit 70c3120

Browse files
authored
Merge pull request #94 from kit-ty-kate/ocaml-5.2
Add support for OCaml 5.2
2 parents bdcee74 + db072c9 commit 70c3120

File tree

3 files changed

+15
-1
lines changed

3 files changed

+15
-1
lines changed

CHANGES.md

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -14,6 +14,8 @@ Unreleased
1414
type%import loc = Location.t
1515
```
1616

17+
* Support for OCaml 5.2 (#94, @kit-ty-kate)
18+
1719
1.10.0
1820
------
1921

src/compat/gen.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,7 @@ let make_version ~version f_prefix =
1414
let include_table =
1515
[ ("types_module_type", [(4, 10); (4, 8)])
1616
; ("types_signature_item", [(4, 8)])
17-
; ("types_type_kind", [(4, 13)])
17+
; ("types_type_kind", [(5, 2); (4, 13)])
1818
; ("init_path", [(4, 9)])
1919
; ("env_lookup", [(4, 10)])
2020
; ("types_desc", [(4, 14)]) ]
Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,12 @@
1+
type ('lbl, 'cstr) type_kind_412 =
2+
| Type_abstract
3+
| Type_record of 'lbl list * Types.record_representation
4+
| Type_variant of 'cstr list
5+
| Type_open
6+
7+
let migrate_type_kind :
8+
('lbl, 'cstr) Types.type_kind -> ('lbl, 'cstr) type_kind_412 = function
9+
| Type_abstract _ -> Type_abstract
10+
| Type_record (lbl, repr) -> Type_record (lbl, repr)
11+
| Type_variant (cstr, _) -> Type_variant cstr
12+
| Type_open -> Type_open

0 commit comments

Comments
 (0)