CLJS-2891: stop including data in ex-info message

clojure · Sep 7, 2018 · 5f0fabc · 5f0fabc
1 parent 033d19c
commit 5f0fabc
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/main/cljs/cljs/spec/alpha.cljs b/src/main/cljs/cljs/spec/alpha.cljs
@@ -323,10 +323,10 @@
         (let [ed (assoc (explain-data* arg-spec [:args]
                           (if-let [name (spec-name arg-spec)] [name] []) [] args)
                    ::args args)]
-          (throw (js/Error.
+          (throw (ex-info
                    (str
-                     "Call to " (->sym v) " did not conform to spec:\n"
-                     (with-out-str (explain-out ed))))))))))
+                     "Call to " (->sym v) " did not conform to spec.")
+                   ed)))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; impl ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defn- recur-limit? [rmap id path k]

diff --git a/src/main/cljs/cljs/spec/test/alpha.cljs b/src/main/cljs/cljs/spec/test/alpha.cljs
@@ -102,7 +102,7 @@
                                   (when caller
                                     {::caller caller}))]
                          (throw (ex-info
-                                  (str "Call to " v " did not conform to spec:\n" (with-out-str (s/explain-out ed)))
+                                  (str "Call to " v " did not conform to spec." )
                                   ed)))
                        conformed)))]
     (doto (fn [& args]