Include exception cause in ex-info (#285)

This ensures that the full stack trace of errors will be preserved.
juxt · Apr 16, 2019 · cea98cc · cea98cc
1 parent c69c003
commit cea98cc
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/src/yada/interceptors.clj b/src/yada/interceptors.clj
@@ -104,7 +104,7 @@
       (try
         (Long/parseLong len)
         (catch Exception e
-          (throw (ex-info "Malformed Content-Length" {:value len})))))))
+          (throw (ex-info "Malformed Content-Length" {:value len} e)))))))
 
 (defn get-properties
   [ctx]

diff --git a/src/yada/methods.clj b/src/yada/methods.clj
@@ -191,9 +191,11 @@
          (fn [e]
            (if (:status (ex-data e))
              (throw e)
-             (throw (ex-info "Error on GET" {:response (:response ctx)
-                                             :resource (type (:resource ctx))
-                                             :error e}))))))))
+             (throw (ex-info "Error on GET"
+                             {:response (:response ctx)
+                              :resource (type (:resource ctx))
+                              :error e}
+                             e))))))))
 
 ;; --------------------------------------------------------------------------------