Untypeast: define untype_expression, untype_pattern (#9920)
Convenience functions that have been defined in merlin for a while.master
parent
fb0b2c5cd1
commit
9ca9df88c0
|
@ -887,3 +887,9 @@ let untype_structure ?(mapper=default_mapper) structure =
|
||||||
|
|
||||||
let untype_signature ?(mapper=default_mapper) signature =
|
let untype_signature ?(mapper=default_mapper) signature =
|
||||||
mapper.signature mapper signature
|
mapper.signature mapper signature
|
||||||
|
|
||||||
|
let untype_expression ?(mapper=default_mapper) expression =
|
||||||
|
mapper.expr mapper expression
|
||||||
|
|
||||||
|
let untype_pattern ?(mapper=default_mapper) pattern =
|
||||||
|
mapper.pat mapper pattern
|
||||||
|
|
|
@ -81,5 +81,7 @@ val default_mapper : mapper
|
||||||
|
|
||||||
val untype_structure : ?mapper:mapper -> Typedtree.structure -> structure
|
val untype_structure : ?mapper:mapper -> Typedtree.structure -> structure
|
||||||
val untype_signature : ?mapper:mapper -> Typedtree.signature -> signature
|
val untype_signature : ?mapper:mapper -> Typedtree.signature -> signature
|
||||||
|
val untype_expression : ?mapper:mapper -> Typedtree.expression -> expression
|
||||||
|
val untype_pattern : ?mapper:mapper -> _ Typedtree.general_pattern -> pattern
|
||||||
|
|
||||||
val constant : Asttypes.constant -> Parsetree.constant
|
val constant : Asttypes.constant -> Parsetree.constant
|
||||||
|
|
Loading…
Reference in New Issue