let
cdna_exn t =
Option
.value_exn ~msg:(sprintf
"%s: no cDNA fasta file"
(name t)) t.cdna