Don't send content type headers when no body is available.

This commit is contained in:
Andrey Antukh 2016-03-17 22:22:55 +02:00
parent decd5a905e
commit 87adadd445

View file

@ -43,7 +43,7 @@
(defn- send! (defn- send!
[{:keys [body headers auth method] :or {auth true} :as request}] [{:keys [body headers auth method] :or {auth true} :as request}]
(let [headers (merge {} (let [headers (merge {}
(when (not= method :get) +headers+) (when body +headers+)
headers headers
(when auth (auth-headers))) (when auth (auth-headers)))
request (merge (assoc request :headers headers) request (merge (assoc request :headers headers)