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)]
(println (str "Message: " m)))
(when-let [d (ex-data (ex-cause e) #_(.getCause e))]
(print (str "Data: "))
(prn d))
(println (str "Data: ")
(pr-str d)))
(let [{:keys [:file :line :column]} d]
(when line
(println (str "Location: "