let fastq_or_gz
name
~sample_name ?fragment_id ~r1 ?r2 () =
fun ~var_count ->
function_call name (
[
"sample_name", string sample_name;
"fragment_id", string (Option.value ~default:"NONE" fragment_id);
"R1", r1 ~var_count;
]
@ Option.value_map ~default:[] ~f:(fun r2 ->
["R2", r2 ~var_count]) r2
)