fix nested form params with json encoding

Author: dakrone

changelog.org

@@ -136,6 +136,8 @@
 * Work log
   Log of merges/issues/work that's gone in so I know what to put in
   the changelog for the next release
+** 2012-05-07
+   - fix json encoded form params with nested maps
 ** 2012-05-02
    - fix attempted json coercion when a bad status is received
 ** 2012-04-30

src/clj_http/client.clj

@@ -354,7 +354,8 @@
                                  (let [[fk m] %]
                                    (reduce
                                     (fn [m [sk v]]
-                                      (assoc m (str (name fk) \[ (name sk) \]) v))
+                                      (assoc m (str (name fk)
+                                                    \[ (name sk) \]) v))
                                     {}
                                     m))
                                  %)
@@ -363,11 +364,13 @@
 
 (defn wrap-nested-params
   [client]
-  (fn [{:keys [query-params form-params] :as req}]
-    (client (reduce
-             nest-params
-             req
-             [:query-params :form-params]))))
+  (fn [{:keys [query-params form-params content-type] :as req}]
+    (if (= :json content-type)
+      (client req)
+      (client (reduce
+               nest-params
+               req
+               [:query-params :form-params])))))
 
 (defn wrap-url [client]
   (fn [req]

test/clj_http/test/core.clj

@@ -293,7 +293,7 @@
 
 (deftest ^{:integration true} t-json-encoded-form-params
   (run-server)
-  (let [params {:param1 "value1" :param2 "value2"}
+  (let [params {:param1 "value1" :param2 {:foo "bar"}}
         resp (client/post (localhost "/post") {:content-type :json
                                                :form-params params})]
     (is (= 200 (:status resp)))