           (build-shabam (vals new-branches))
           (vary-meta assoc ::dirty true))))))
 
-(def voomdb-header "voom-db-7")
+(def voomdb-header "voom-db-8")
 
 (defn ^File git-db-file
   [gitdir]


(defn exported-commits
  [gitdir tip-shas seen-shas]
  (let [marks-file (File/createTempFile "marks" ".txt")]
    (try
      (let [{:keys [out]} (apply sh "git" "fast-export" "--no-data"
                                 (str "--export-marks=" marks-file)
                                 (concat (map str tip-shas)
                                         (map #(str "^" %) seen-shas)
                                         [:dir gitdir, :out-enc :bytes]))
            marks (into {}
                        (map #(let [[mark sha] (s/split % #" ")]
                                [mark (sha/mk sha)])
                             (re-seq #"(?m)^.*$" (slurp marks-file))))
            merge-commit-fn (fn [cmd commit]
                              (if (= cmd "merge")
                                (-> commit

                               commit)))))
              commits))))
      (finally
       (.delete in-marks-file)
       (.delete out-marks-file)))))

(defn proj-fact-tail
  [gitdir blob-sha]
