CLJS-2889: Improve sorting on problem printing

clojure · Sep 7, 2018 · 033d19c · 033d19c
1 parent 2f73857
commit 033d19c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/main/cljs/cljs/spec/alpha.cljs b/src/main/cljs/cljs/spec/alpha.cljs
@@ -217,7 +217,9 @@
   "Default printer for explain-data. nil indicates a successful validation."
   [ed]
   (if ed
-    (let [problems (sort-by #(- (count (:path %))) (::problems ed))]
+    (let [problems (->> (::problems ed)
+                     (sort-by #(- (count (:in %))))
+                     (sort-by #(- (count (:path %)))))]
       (print
         (with-out-str
           ;;(prn {:ed ed})