diff options
| author | Dimitrios Vytiniotis <dimitris@microsoft.com> | 2012-03-28 10:56:29 +0200 |
|---|---|---|
| committer | Dimitrios Vytiniotis <dimitris@microsoft.com> | 2012-03-28 10:56:29 +0200 |
| commit | b4b7647fedf0feab41d417c4e980bd08445ce559 (patch) | |
| tree | 004f4e966e1a1e3a5457b11c57cb7f9abf43a108 /compiler/utils/Digraph.lhs | |
| parent | cc2d2e1d44405630fb34311dc3f5e42eadc5c6b1 (diff) | |
| parent | 9606231dd203163c8ca839b3f58c6e40a3805fa8 (diff) | |
| download | haskell-b4b7647fedf0feab41d417c4e980bd08445ce559.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc into ghc-new-flavor
Diffstat (limited to 'compiler/utils/Digraph.lhs')
| -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 |