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