Improve error renderer

This commit is contained in:
Michiel Borkent 2022-08-31 17:28:07 +02:00
parent cfac8dbaa5
commit 2cb9e7de68

View file

@ -69,8 +69,8 @@
(when-let [m (.-message e)] (when-let [m (.-message e)]
(println (str "Message: " m))) (println (str "Message: " m)))
(when-let [d (ex-data (ex-cause e) #_(.getCause e))] (when-let [d (ex-data (ex-cause e) #_(.getCause e))]
(print (str "Data: ")) (println (str "Data: ")
(prn d)) (pr-str d)))
(let [{:keys [:file :line :column]} d] (let [{:keys [:file :line :column]} d]
(when line (when line
(println (str "Location: " (println (str "Location: "