Stypes
type annotation =
| Ti_pat : 'k Typedtree.pattern_category * 'k Typedtree.general_pattern -> annotation |
| Ti_expr of Typedtree.expression |
| Ti_class of Typedtree.class_expr |
| Ti_mod of Typedtree.module_expr |
| An_call of Location.t * Annot.call |
| An_ident of Location.t * string * Annot.ident |
val record : annotation -> unit
val record_phrase : Location.t -> unit
val get_location : annotation -> Location.t
val get_info : unit -> annotation list