Sourcetype t = {since : string option;note : string option;
} Sourceval make : ?since:string -> ?note:string -> unit -> t Sourceval create_warning :
object_name:string ->
warning_name_if_no_since:string ->
('b -> Pp.t) ->
?loc:Loc.t ->
('b * t) ->
unit