   [:fileformat :file-date :source :reference :contig :phasing :info :filter :format :alt :sample :pedigree])
 (def ^:private ^:const meta-info-prefix "##")
 (def ^:private ^:const header-prefix "#")
+(def ^:private ^:const default-pass-filter
+  {:id "PASS", :description "All filters passed"})
 
 (defn- stringify-meta
   "Converts meta-info rows to a sequence of strings."

    (lsb/write-int wtr hlen)
    (lsb/write-bytes wtr hdr-ba)))

(defn ^BCFWriter writer
  "Returns an open cljam.bcf.BCFWriter of f.
   Meta-information lines and a header line will be written in this function.

       (WRITING-BCF))"
  [f meta-info header]
  (let [bos (bgzf/bgzf-output-stream f)
        dos (DataOutputStream. bos)]
    (doto (BCFWriter. (util/as-url f) (index-meta meta-info) header dos)
      (write-file-header))))

(defn- value-type
  "Returns an integer indicating type of input value."
