diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-03-28 07:02:23 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-03-28 07:02:23 +0100 |
commit | 4ecfc7ffab0b8578490f7fbe8aa8912f4af1a76a (patch) | |
tree | f71b08dea1ac40c42a74f5bc3a9cb88bdf3174fb | |
parent | 5673173de699d556ef7f51a1b558bd1ec676fd52 (diff) | |
download | haskell-4ecfc7ffab0b8578490f7fbe8aa8912f4af1a76a.tar.gz |
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
-rw-r--r-- | compiler/utils/Digraph.lhs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/compiler/utils/Digraph.lhs b/compiler/utils/Digraph.lhs index 1bb460674c..a2b40152f3 100644 --- a/compiler/utils/Digraph.lhs +++ b/compiler/utils/Digraph.lhs @@ -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 |