 (defn read-git-db
   [gitdir]
   (let [file (git-db-file gitdir)
-        [header & [shabam & reldata]] (-> file
+        [header & reldata] (-> file
                                io/input-stream
                                java.util.zip.GZIPInputStream.
                                (fress/read :handlers sha/read-handlers))]
     (if (= header voomdb-header)
-      {:shabam (update-in shabam [:bitmaps] vec)
+      {:shabam (shabam-new)
        :pldb
        , (vdb/from-reldata
           [r-branch r-commit r-commit-parent r-commit-path r-proj-path r-proj]

                            gitdir (vals new-branches) (vals old-branches)))]
            (->/assoc :pldb (add-commit-facts gitdir commit)))

          (build-shabam (vals new-branches))
          (vary-meta assoc ::dirty true))))))

(def voomdb-header "voom-db-8")

(defn ^File git-db-file
  [gitdir]

                                :handlers sha/write-handlers))]
    (fress/begin-open-list w)
    (fress/write-object w voomdb-header)
    (doseq [item (vdb/to-reldata (:pldb db))]
      (fress/write-object w item))))

