Sourcetype t = {since : string option;note : string option;
} Sourcetype 'a with_qf = {depr : t;use_instead : 'a option;
} Sourceval make : ?since:string -> ?note:string -> unit -> t Sourceval make_with_qf :
?since:string ->
?note:string ->
?use_instead:'qf ->
unit ->
'qf with_qf