 (defn parse-failed-compile [{:keys [exception-data] :as ex}]
   (if (and
        (exception-info? exception-data)
+       (:message exception-data)
        (->> exception-data :message (re-matches #"failed compiling.*")))
     (assoc ex
              :failed-compiling true

      warning-data->display-data
      formatted-exception-display-str))

#_(-> (:reader example-ex)
    parse-inspected-exception
    exception-data->display-data
    formatted-exception-display-str)

;; this is only for development


                :message "Invalid :refer, var var cljs.core.async/yep does not exist in file test.cljs",
                :data {:tag :cljs/analysis-error},
                :cause nil}}
   :analysis-no-message {:class clojure.lang.ExceptionInfo,
                         :data {:file "test.cljs"},
                         :cause
                         {:class clojure.lang.ExceptionInfo,
                          :data {:tag :cljs/analysis-error},
                          :cause nil}}
   :reader {:class clojure.lang.ExceptionInfo,
            :message "failed compiling file:test.cljs",
            :data {:file "test.cljs"},
