                                    (if folded? (str value) title))
                           :value (if stack stack (if-not folded? (html-edn value)))
                           :classes (if stack "stack")})})))))))
-(def ui-result-line (om/factory ResultLine {:keyfn (let [c (atom 0)]
-                                                     #(str "result-line-" (swap! c inc)))}))
+(def ui-result-line (om/factory ResultLine {:keyfn (unique-key-fn "result-line")}))
 
 (defui ^:once HumanDiffLines
   Object

          (dom/tr #js {:className "actual"}
            (dom/td nil "got: ")
            (dom/td nil (html-edn got))))))))
(def ui-human-diff-lines (om/factory HumanDiffLines {:keyfn (let [c (atom 0)]
                                                              #(swap! c inc))}))

(defui ^:once HumanDiff
  Object

            (str title)))
        (dom/div #js {:className (when folded? "hidden")}
          value)))))
(def ui-foldable (om/factory Foldable {:keyfn (unique-key-fn "foldable")}))

(defui ^:once ResultLine
  Object
