Source file `migrate_500_414.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
module From = Ast_500
module To = Ast_414

let copy_structure : Ast_500.Parsetree.structure -> Ast_414.Parsetree.structure
    =
 fun x -> x

let copy_signature : Ast_500.Parsetree.signature -> Ast_414.Parsetree.signature
    =
 fun x -> x

let copy_toplevel_phrase :
    Ast_500.Parsetree.toplevel_phrase -> Ast_414.Parsetree.toplevel_phrase =
 fun x -> x

let copy_core_type : Ast_500.Parsetree.core_type -> Ast_414.Parsetree.core_type
    =
 fun x -> x

let copy_expression :
    Ast_500.Parsetree.expression -> Ast_414.Parsetree.expression =
 fun x -> x

let copy_pattern : Ast_500.Parsetree.pattern -> Ast_414.Parsetree.pattern =
 fun x -> x

let copy_case : Ast_500.Parsetree.case -> Ast_414.Parsetree.case = fun x -> x

let copy_type_declaration :
    Ast_500.Parsetree.type_declaration -> Ast_414.Parsetree.type_declaration =
 fun x -> x

let copy_type_extension :
    Ast_500.Parsetree.type_extension -> Ast_414.Parsetree.type_extension =
 fun x -> x

let copy_extension_constructor :
    Ast_500.Parsetree.extension_constructor ->
    Ast_414.Parsetree.extension_constructor =
 fun x -> x