let vcf_file ~host ~reference_build path : vcf_file =
object (self)
val file = single_file ~host path
method host = host
method path = file#path
method is_done = file#is_done
method reference_build = reference_build
method as_single_file = file
end