sortBy cmp ts)
    where
    cmp = comparing (diffContentNodeId ∘ getNode)

renderNode ∷ RenderableTree t ξ ⇒ DiffTre
renderForest ts = ul $ mapM_ renderTree (sortBy cmp ts)
    where
    cmp = comparing (diffContentNodeId ∘ getNode)
renderForest ts = ul $ mapM_ renderTree (sortBy cmp ts)
    where
    cmp = comparing (diffContentNodeId ∘ getNode)