    :description
    (describe-list "every?" [(:description m)])
    :describe-mismatch
-   (fn [xs]
-     (describe-list
-       "every?"
-       (->> xs
-         (filter #(not ((:match m) %)))
-         (map #((:describe-mismatch m) %)))))})
+   standard-describe-mismatch})
 
 (defn has-count
   "passes if the sequence received has the given count

   (describe-list "any-of" (map :description ms))

   :describe-mismatch
   (fn [a]
     (describe-list
       "any-of"
       (->> ms
         (filter #(not ((:match %) a)))
         (map #((:describe-mismatch %) a)))))})

(defn some
  [m]

   :description
   (describe-list "includes" [x])
   :describe-mismatch
   standard-describe-mismatch})

(defn run-match
  "runs a matcher, given a value to match against.
