                                :failed c/red
                                :error  c/red
                                :diff/impl (fn [[got exp]]
-                                            (str ((comp c/green-bg c/black
-                                                        c/bold)
-                                                  exp)
-                                                 ((comp c/red-bg c/bold)
-                                                  got)))}
+                                            ((comp c/bold c/inverse)
+                                              (str exp " != " got)))}
                         color? (merge {:normal (comp c/bold c/yellow)
                                        :diff (comp c/bold c/cyan)
                                        :where (comp c/bold c/white)}))

(defn print-diff [diff actual print-fn]
  (when (and (env :diff?) (diff/diff-paths? diff))
    (println)
    (when (env :diff-hl?)
      (print-highligted-diff diff actual)
      (println))
    (when (env :diff-list?)

              (let [{:keys [exp got path]} (diff/extract d)]
                (->> [got exp]
                     (color-str :diff/impl)
                     (#(if (empty? path) %
                         (assoc-in out path %))))))
            actual d)
    (pretty-str d 2)
    (println "DIFF:" d)))
