Fix generate-query-string to handle sequential values properly.

ghoseb · Jan 23, 2012 · da97805 · da97805
1 parent 95d8e81
commit da97805
Showing 1 changed file with 11 additions and 3 deletions.
diff --git a/src/clj_http/client.clj b/src/clj_http/client.clj
@@ -126,9 +126,17 @@
 
 (defn generate-query-string [params]
   (str/join "&"
-            (map (fn [[k v]] (str (util/url-encode (name k)) "="
-                                  (util/url-encode (str v))))
-                 params)))
+            (mapcat (fn [[k v]]
+                      (if (sequential? v)
+                        (map #(str (util/url-encode (name %1))
+                                   "="
+                                   (util/url-encode (str %2)))
+                             (repeat k) v)
+                        [(str (util/url-encode (name k))
+                              "="
+                              (util/url-encode (str v)))]))
+                    params)))
+
 
 (defn wrap-query-params [client]
   (fn [{:keys [query-params] :as req}]