Module Patterns.Simple

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