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

add basic support for operations to specify whether the 'Location' response header should be followed or not (if it is present in the response of course)

Browse source
This commit is contained in:
Gered 2014-08-01 15:07:28 -04:00
parent 2ed10827d3
commit ad44c28666
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/clj_hl7_fhir/core.clj
View file

@ -9,20 +9,23 @@
(defn- ->fhir-resource-name [x]
(name (->CamelCase x)))
(defn- fhir-request [type base-url resource-url & {:keys [params body]}]
(let [query (map->query-string params)
url (build-url base-url resource-url query)]
(defn- fhir-request [type base-url resource-url & {:keys [params body follow-location?]}]
(let [query (map->query-string params)
url (build-url base-url resource-url query)
follow-location? (if (nil? follow-location?) true follow-location?)]
(try
(let [response (case type
:get (http-get-json url)
:post (http-post-json url body)
:put (http-put-json url body)
:delete (http-delete-json url body))]
(-> (if-let [location (get-in response [:headers "Location"])]
(http-get-json location)
response)
:body
(json/parse-string true)))
:delete (http-delete-json url body))
location (get-in response [:headers "Location"])]
(if location
(if follow-location?
(-> (http-get-json location)
:body
(json/parse-string true))
location)))
(catch ExceptionInfo ex
(let [{:keys [status body headers]} (:object (ex-data ex))
fhir-resource-response? (.contains (get headers "Content-Type") "application/json+fhir")]