Attribute.Floatingmodule Context : sig ... endval declare :
string ->
'a Context.t ->
( Astlib.Ast_412.Parsetree.payload, 'b, 'c ) Ast_pattern.t ->
'b ->
( 'a, 'c ) tval name : ( _, _ ) t -> stringval convert : ( 'a, 'b ) t list -> 'a -> 'b option