Module 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 dump : string option -> unit
val get_location : annotation -> Location.t
val get_info : unit -> annotation list