fix: cljs error message impl

kepler16 · Jun 25, 2022 · 7d6180e · 7d6180e · vercel · Jun 25, 2022
1 parent 6f1b8d4
commit 7d6180e
Showing 1 changed file with 14 additions and 8 deletions.
diff --git a/src/k16/gx/beta/impl.cljc b/src/k16/gx/beta/impl.cljc
@@ -138,11 +138,17 @@
 
 (defn error-message
   [ex]
-  (if (string? ex)
-    ex
-    (->> ex
-         (iterate ex-cause)
-         (take-while some?)
-         (mapv ex-message)
-         (interpose "; ")
-         (apply str))))
+  #?(:clj (->> ex
+               (iterate ex-cause)
+               (take-while some?)
+               (mapv ex-message)
+               (interpose "; ")
+               (apply str))
+     :cljs (cond
+             (instance? cljs.core/ExceptionInfo ex)
+             (ex-message ex)
+
+             (instance? js/Error ex)
+             (ex-message ex)
+
+             :else ex)))