proxy by correct method

boxuk · Dec 7, 2013 · e8cc937 · e8cc937
1 parent a042c04
commit e8cc937
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/nsproxy/http.clj b/src/nsproxy/http.clj
@@ -9,6 +9,11 @@
     (:headers req)
     ["user-agent" "soapaction" "content-type"]))
 
+(defn- req-method [req]
+  (if (= :post (:request-method req))
+                http/post
+                http/get))
+
 (defn- res-body [config req res]
   (string/replace
     (:body res)
@@ -27,7 +32,7 @@
         opts {:headers (req-headers req)
               :content-type "text/xml"
               :body (slurp (:body req))}
-        res (http/post url opts)]
+        res ((req-method req) url opts)]
     (merge
       (select-keys res [:status :content-type])
       {:body (res-body config req res)})))