   (map #(conj (seq (str/split % #"/|_")) %) ubids))
 
 (defn tags->index-payload
-  "Creates a bulk index payload from a sequence of ubids"
+  "Creates a bulk index payload from a sequence of tags"
   [tags]
   (let []
        (apply str

  (get-in (json/read-str response)["error"]))

(defn load!
  "Loads index-payload into index/url"
  ([]
   (let [payload (tags->index-payload
                  (ubid->tags
                   (universal-band-ids
                    (get-in config [:database :default-keyspace]))))
         bulk-url (bulk-api-url)]
     (log/debug "Loading payload:" payload " into bulk api at:" bulk-url)
     (load! bulk-url payload)))

                                                        {:body payload})
         errors (or error (get-errors body))]
      (if errors
        (do (log/debug (str "load! errors:" errors)) errors)
        (do (log/debug (str "load! success:" body)) body)))))

(defn clear!
  "Clears the index specified by index/url"
