Fix catch-exception on cljs

wilkerlucio · Dec 13, 2024 · b153236 · b153236
1 parent bfc56ae
commit b153236
Showing 1 changed file with 15 additions and 6 deletions.
diff --git a/test/com/wsscode/pathom3/test/helpers.cljc b/test/com/wsscode/pathom3/test/helpers.cljc
@@ -34,9 +34,18 @@
         x))
     x))
 
-(defmacro catch-exception [& body]
-  `(try
-     ~@body
-     (catch #?(:clj Throwable :cljs :default) e#
-       {:ex/message (ex-message e#)
-        :ex/data    (ex-data e#)})))
+(defn error->data [error]
+  {:ex/message (ex-message error)
+   :ex/data    (ex-data error)})
+
+#?(:clj
+   (defmacro catch-exception [& body]
+     (if (:ns &env)
+       `(try
+          ~@body
+          (catch :default e#
+            (error->data e#)))
+       `(try
+          ~@body
+          (catch Throwable e#
+            (error->data e#))))))