File tree Expand file tree Collapse file tree 1 file changed +4
-11
lines changed Expand file tree Collapse file tree 1 file changed +4
-11
lines changed Original file line number Diff line number Diff line change 99 [org.apache.hc.core5.http ContentType HttpEntity]
1010 [org.apache.hc.client5.http.entity.mime MultipartEntityBuilder]))
1111
12- (defn- encode-params
13- " Turn a map of parameters into a urlencoded string."
14- [params]
15- (when params
16- (codec/form-encode params)))
12+ (defn- encode-params [params]
13+ (when params (codec/form-encode params)))
1714
1815(defn header
1916 " Add a HTTP header to the request map."
4643 (assoc :content-length length)
4744 (header :content-length length)))
4845
49- (defn- combined-query
50- " Create a query string from a URI and a map of parameters."
51- [request params]
46+ (defn- combined-query [request params]
5247 (let [query (:query-string request)]
5348 (when (or query params)
5449 (string/join " &"
5550 (remove string/blank?
5651 [query (encode-params params)])))))
5752
58- (defn- merge-query
59- " Merge the supplied parameters into the query string of the request."
60- [request params]
53+ (defn- merge-query [request params]
6154 (if-let [qs (combined-query request params)]
6255 (assoc request :query-string qs)
6356 request))
You can’t perform that action at this time.
0 commit comments