         (let [url (format "%s/_search" type)
               q   ((if bound? bound-query unbound-query) pattern)]
           (some->> (request! client :get url q)
+                   response!
                    :body
                    :hits
                    :hits

  [^String path]
  (clojure.lang.Murmur3/hashUnencodedChars path))

(defn try-mapping
  [client type mapping]
  (let [url  (format "_mapping/%s" type)
        body (:body (request! client :get url))]
    (when (or (nil? body) (empty? body))
      (request! client :put url mapping))))


                   :follow-redirects? true
                   :content-type "application/json"
                   :body (when body (json/generate-string body))
                   :method method}]
          (http/request client req))))))

(defn path-length
  [path]
