Module Ast_pattern.Packed
type ('a, 'b, 'c) pattern= ('a, 'b, 'c) ttype ('a, 'b) t
val create : ('a, 'b, 'c) pattern -> 'b -> ('a, 'c) tval parse : ('a, 'b) t -> Location.t -> 'a -> 'b
Ast_pattern.Packedtype ('a, 'b, 'c) pattern = ('a, 'b, 'c) ttype ('a, 'b) tval create : ('a, 'b, 'c) pattern -> 'b -> ('a, 'c) tval parse : ('a, 'b) t -> Location.t -> 'a -> 'b