diff --git a/src/taoensso/timbre.cljc b/src/taoensso/timbre.cljc index 03568fc5..a8a9b245 100644 --- a/src/taoensso/timbre.cljc +++ b/src/taoensso/timbre.cljc @@ -928,11 +928,11 @@ ([err ] (stacktrace err nil)) ([err opts] #?(:cljs - ;; TODO Better alternatives? - (str - err ; Stringified error incl. (.-message err) - (when-let [s (.-stack err)] - (str enc/system-newline s))) + (let [nl enc/system-newline] + (str + (.-stack err) ; Includes `ex-message` + (when-let [d (ex-data err)] (str nl "ex-data" enc/system-newline " " (pr-str d))) + (when-let [c (ex-cause err)] (str nl "caused by - " (stacktrace c opts))))) :clj (let [stacktrace-fonts ; {:stacktrace-fonts nil->{}}