Module Floating.Context

type ('a, 'w) t =
  1. | Structure_item : (Astlib.Ast_500.Parsetree.structure_item, [> `structure_item ]) t
  2. | Signature_item : (Astlib.Ast_500.Parsetree.signature_item, [> `signature_item ]) t
type nonrec 'a poly = ('a, poly) t
val location : ('a, 'b) t -> 'a -> Astlib.Location.t