Module Patterns.Simple

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