 					[id contents]
 					(error "Unknown frame key (%s)" key)))))))
 
-(defn ^:private read-header [path]
+(defn read-header [path]
 	(with-open [f (io/input-stream path)]
 		(b/decode id3-header f)))
 

				:id3.frame.type/picture (map #(select-keys % [:id3.frame/picture-type :id3.frame/mime-type :id3.frame/bytes]) frames)
				:id3/frame.type/blob (map :id3.frame/bytes frames))])))

(defn ^:private normal->full [version tag] {
	::magic-number "ID3"
	::version version
	::revision 0

				:else
					frame)))))

(defn full->normal [tag]
	(into {}
		(for [[id [first-frame & extra-frames :as frames]] (group-by :id3.frame/id (::frames tag))]
			[id (case (common/frame-type id)
