From 14a813b70c2456dff789ceaeeead0003f237c1af Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Wed, 1 Mar 2017 12:53:21 -0500
Subject: [PATCH] update clj-http request error handling

the exceptions it throws in the case of an error are now somewhat
different in the latest versions
---
 src/clj_hl7_fhir/core.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/clj_hl7_fhir/core.clj b/src/clj_hl7_fhir/core.clj
index 065656c..a2bf689 100644
--- a/src/clj_hl7_fhir/core.clj
+++ b/src/clj_hl7_fhir/core.clj
@@ -85,7 +85,7 @@
             (json/parse-string response-body true)
             response-body)))
       (catch ExceptionInfo ex
-        (let [{:keys [status body] :as response} (:object (ex-data ex))
+        (let [{:keys [status body] :as response} (ex-data ex)
               fhir-resource-response?            (fhir-response? response)]
           (throw (ex-info (str "FHIR request failed: HTTP " status)
                           {:status status