Allow coercing response :body as string of arbitrary type

ghoseb · Jan 4, 2012 · ad47102 · ad47102
1 parent 36641c0
commit ad47102
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/Readme.md b/Readme.md
@@ -45,6 +45,8 @@ More example requests:
 (client/get "http://site.com/search" {:query-params {"q" "foo, bar"}})
 
 (client/get "http://site.com/favicon.ico" {:as :byte-array})
+;; Coerce as something other than UTF-8 string
+(client/get "http://site.com/string.txt" {:as "UTF-16"})
 
 (client/post "http://site.com/api"
   {:basic-auth ["user" "pass"]

diff --git a/src/clj_http/client.clj b/src/clj_http/client.clj
@@ -76,7 +76,9 @@
       (cond
        (or (nil? body) (= :byte-array as))
        resp
-       (nil? as)
+       (string? as)
+       (assoc resp :body (String. #^"[B" body as))
+       :else
        (assoc resp :body (String. #^"[B" body "UTF-8"))))))