Ast_pattern.Packed
type ('a, 'b) t
val create : ( 'a, 'b, 'c ) t -> 'b -> ( 'a, 'c ) t
val parse : ( 'a, 'b ) t -> Location.t -> 'a -> 'b