Commit 4ecfc7ff authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Remove Show instance for Forest

A Forest is just a list, and we have a Show instance for
lists already.  We don't need a special Show instance for
Forests.  If we change our minds we can add a newtype,
but I don't think it's worth it.

Fixes Trac #5960
parent 5673173d
......@@ -429,12 +429,6 @@ instance Show a => Show (Tree a) where
showTree :: Show a => Tree a -> String
showTree = drawTree . mapTree show
instance Show a => Show (Forest a) where
showsPrec _ f s = showForest f ++ s
showForest :: Show a => Forest a -> String
showForest = unlines . map showTree
drawTree :: Tree String -> String
drawTree = unlines . draw
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment