let bam_file ~host ?sorting ~reference_build path : bam_file =
    object
      val file = single_file ~host path
      method host = host
      method path = file#path
      method is_done = file#is_done
      method sorting = sorting
      method reference_build = reference_build
    end