enhance(dev): import cli and tests print original error's ex-data

This commit is contained in:
Gabriel Horner
2025-01-13 13:27:39 -05:00
parent 86807f5420
commit 63eaacdbe1
2 changed files with 6 additions and 2 deletions

View File

@@ -51,7 +51,9 @@
(defn- notify-user [{:keys [continue debug]} m]
(println (:msg m))
(when (:ex-data m)
(println "Ex-data:" (pr-str (dissoc (:ex-data m) :error)))
(println "Ex-data:" (pr-str (merge (dissoc (:ex-data m) :error)
(when-let [err (get-in m [:ex-data :error])]
{:original-error (ex-data (.-cause err))}))))
(println "Stacktrace:")
(if-let [stack (some-> (get-in m [:ex-data :error]) ex-data :sci.impl/callstack deref)]
(println (string/join