(do-report m)
(defn do-report [m] (let [m (case (:type m) :fail (merge (file-and-line (js/Error.) 4) m) :error (merge (file-and-line (:actual m) 0) m) m)] (report m)))