how to use clojure `ex-info`

ex-tutorial.clj

(ns erc20-mapper.ex-tutorial)

(defn fail [& args]
  (throw (ex-info "OMG!" {:type ::fail :args args})))

(defn funky-fail [& args]
  (throw (ex-info "jayyyyy!" {:type ::funky-fail :args args})))

(defn mby [fn]
  (try
    (fn)
    (catch clojure.lang.ExceptionInfo e
      (case (-> e ex-data :type)
        ::fail "yes!"
        ::funky-fail "hell yes!"
        (throw e)))))


(mby fail) ;; => "yes!"

(mby funky-fail) ;; => "hell yes!"