let fastq_sample ~sample_name files = Fastq {fastq_sample_name = sample_name; files}