   [a]
   {:match (fn [b] (core/= a b))
    :description (pr-str a)
-   :describe-mismatch describe-class-mismatch})
+   :describe-mismatch
+   (fn [x]
+     (let [[things-in-a things-in-x things-in-both] (data/diff a x)]
+       (str (describe-class-mismatch x)
+         "\n+" (pr-str things-in-a)
+         "\n-" (pr-str things-in-x))))})
 
 (defn <=
   "matches based if the value given is greater-than or equal to

     instance? string? map? seq? char? vector? nil? keyword? symbol? ratio? decimal? float? isa? rational? coll? set? list? fn?])
  (:require [clojure.string :as string]
            [clojure.core :as core]
            [clojure.test :as test]))
;; Matcher
;; Match
;;

    (matcha/run-match matcha/falsey? nil) ; => fails"}
  falsey?
  {:match not
   :description "a falsey value"})

(def
  ^{:doc
