(defn default-error-message
[{throwable :throwable
message :message}]
(let [message-prefix (if message (str message "\n") nil)]
(str
"circumspec exception:\n"
message-prefix
"thrown " (with-out-str (.printStackTrace throwable (java.io.PrintWriter. *out*))))))
Comments top
No comments for default-error-message. Log in to add a comment.