gered/clj-hl7-fhir
Archived
1
0
Fork 0
Code Issues 1 Pull requests Packages Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Gered 2014-07-18 13:30:09 -04:00
parent bbea913abe
commit 6ead967447
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/clj_hl7_fhir/core.clj
View file

@ -18,8 +18,8 @@
:post (http-post-json url body) :post (http-post-json url body)
:put (http-put-json url body) :put (http-put-json url body)
:delete (http-delete-json url body))] :delete (http-delete-json url body))]
(-> (if (= 201 (:status response)) (-> (if-let [location (get-in response [:headers "Location"])]
(http-get-json (get-in response [:headers "Location"])) (http-get-json location)
response) response)
:body :body
(json/parse-string true))) (json/parse-string true)))