let stringtie ?(configuration = Tools.Stringtie.Configuration.default) bamt =
let bam = get_bam (AF.get_file bamt) in
let result_prefix =
Name_file.from_path bam#product#path ~readable_suffix:"stringtie" [
configuration.Tools.Stringtie.Configuration.name;
] in
Gtf (Tools.Stringtie.run ~configuration ~bam ~result_prefix ~run_with ())
|> AF.with_provenance "stringtie" ["bam", AF.get_provenance bamt]
~string_arguments:["configuration-name",
configuration.Tools.Stringtie.Configuration.name]
~json_arguments:["configuration",
Tools.Stringtie.Configuration.to_json configuration]