fix following response "Location" headers to not just follow them with HTTP 201 responses

2014-07-18 13:30:09 -04:00 · 2014-07-18 13:30:09 -04:00 · 6ead967447
parent bbea913abe
commit 6ead967447
1 changed files with 2 additions and 2 deletions
--- a/src/clj_hl7_fhir/core.clj
+++ b/src/clj_hl7_fhir/core.clj
@ -18,8 +18,8 @@
                       :post   (http-post-json url body)
                       :put    (http-put-json url body)
                       :delete (http-delete-json url body))]
-        (-> (if (= 201 (:status response))
-              (http-get-json (get-in response [:headers "Location"]))
+        (-> (if-let [location (get-in response [:headers "Location"])]
+              (http-get-json location)
              response)
            :body
            (json/parse-string true)))