let get_reference_genome name = match List.find default_genome_providers ~f:(fun (a, _) -> a = name) with | Some (_, pull) -> pull | None -> failwithf "Cannot find the reference genorme called %S" name