     {:pass? true}
     {:pass? false
      :expected (:description matcher)
-     :was ((:describe-mismatch matcher) a)}))
+     :was ((:describe-mismatch matcher describe-class-mismatch) a)
+     :matcher matcher}))

  (matcha/run-match (matcha/<= 1) 0) ; => fails"
  [a]
  {:match (fn [b] (core/<= a b))
   :description (describe-list "<=" [a])
   :describe-mismatch standard-describe-mismatch})

(defn <

  {:match
   (fn [xs] (core/some #{x} xs))
   :description
   (str "includes " (pr-str x))
   :describe-mismatch
   standard-describe-mismatch})

