-- Prevent possible space leaks in the editor structure
forceFold1 :: Foldable t => t a -> t a
forceFold1 x = foldr seq x x
forceFold1 :: Foldable t => t a -> t a
forceFold1 x = foldr seq x x
forceFold1 x = foldr seq x x