                (str "Ambiguous object prefix '" hash-prefix "'")))
       :else (second (first matches)))))
 
-(defn read-object
-  [hash-prefix]
+(defn read-object [hash-prefix]
   (let [hash-hex (complete-hash hash-prefix)
         filepath (str (git-root) 
                       "objects/"

        (conj out e)
        (recur (f-entry r) (conj out e))))))

(defn blob
  [hash-hex]
  (to-str (second (read-object hash-hex))))

(defn branch
  [b]
  (let [filepath (str (git-root) "refs/heads/" b)]
    (clojure.string/replace (slurp filepath) #"\n" "")))


        ]
    data))

(defn hash-tree [tree-struct]
  (->> tree-struct
       (tree-data)
       (byte-array)
