let fastq_gz ~sample_name ?fragment_id ~r1 ?r2 () = let fq = fastq ~sample_name ?fragment_id ~r1 ?r2 () in Gz (AF.get_file fq) |> AF.with_provenance "gz" ["fastq", AF.get_provenance fq]