Patterns.Simple
type view = [
|
`Any
|
`Constant(Asttypes.constant)
|
`Tuple(list(Typedtree.pattern))
|
`Construct((Asttypes.loc(Longident.t), Types.constructor_description,
list(Typedtree.pattern)))
|
`Variant((Asttypes.label, option(Typedtree.pattern), Stdlib.ref(Types.row_desc)))
|
`Record((list((Asttypes.loc(Longident.t), Types.label_description, Typedtree.pattern)),
Asttypes.closed_flag))
|
`Array(list(Typedtree.pattern))
|
`Lazy(Typedtree.pattern)
];
type pattern = Typedtree.pattern_data(view);
let omega: Typedtree.pattern_data([> view ]);