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

(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?)

                               :failed c/red
                               :error  c/red
                               :diff/impl (fn [[got exp]]
                                            ((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)}))
