let major_contigs t : Region.t list = match t.specification.Specification.major_contigs with | None -> failwithf "Reference %S does have major-contigs/chromosomes defined" (name t) | Some l -> List.map l ~f:(fun s -> `Chromosome s)