fix http headers not being correctly added

This commit is contained in:
Gered 2014-10-07 13:31:03 -04:00
parent 26dd44c37e
commit 33772f2fbc

View file

@ -56,7 +56,7 @@
http-req-params (merge
(if (:insecure? *options*) {:insecure? true})
(select-keys *options* [:basic-auth :digest-auth :oauth-token])
(:headers *options*))]
(if (map? (:headers *options*)) {:headers (:headers *options*)}))]
(try
(let [response (case type
:get (http-get-json url http-req-params)