Add ex-data to http-exception

klauswuestefeld · Jun 24, 2024 · 5c53bd3 · 5c53bd3
1 parent 3fac03d
commit 5c53bd3
Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/http/exceptions/project.clj b/http/exceptions/project.clj
@@ -1,4 +1,4 @@
-(defproject house.jux/http.exceptions "2024.06.11"
+(defproject house.jux/http.exceptions "2024.06.24"
 
   :description "Wrapper that handles API thrown exceptions with a 400 status code."
   :url "https://github.com/klauswuestefeld/simple-clj/tree/master/http/exceptions"

diff --git a/http/exceptions/src/house/jux__/http/exceptions__.clj b/http/exceptions/src/house/jux__/http/exceptions__.clj
@@ -4,9 +4,9 @@
    [house.jux--.exceptions-- :refer [message expected?]]))
 
 (defn- ->body [e message expected?]
-  (if expected?
-    {:error message, :expected true}
-    {:error message, :stacktrace (with-out-str (stacktrace/print-cause-trace e))}))
+  (merge (if expected?
+           {:error message, :expected true}
+           {:error message, :stacktrace (with-out-str (stacktrace/print-cause-trace e))}) (ex-data e)))
 
 
 (defn handle [delegate-handler request]