let sort_bam_if_necessary ~(run_with:Machine.t) ~by     input_bam : KEDSL.bam_file KEDSL.workflow_node =   match input_bam#product#sorting with   | Some some when some = by -> (* Already sorted “the same way” *)     input_bam   | other ->     sort_bam_no_check ~run_with input_bam ~by