Permalink
Browse files

Show instance was commented

  • Loading branch information...
1 parent 09c15a4 commit 03e0a44382bbdf9bdf632d5a86989c6f01e6dda3 @bitonic committed Nov 16, 2011
Showing with 2 additions and 3 deletions.
  1. +2 −3 TST.hs
View
5 TST.hs
@@ -19,10 +19,9 @@ import Prelude hiding (lookup)
data TST c a = Branch c (TST c a) (TST c a) (TST c a)
| End a (TST c a)
| Null
- deriving (Show)
--- instance (Ord c, Show c, Show a) => Show (TST c a) where
--- show = ("fromList " ++) . show . toList
+instance (Ord c, Show c, Show a) => Show (TST c a) where
+ show = ("fromList " ++) . show . toList
instance (Ord c, Eq c, Eq a) => Eq (TST c a) where
t1 == t2 = toList t1 == toList t2

0 comments on commit 03e0a44

Please sign in to comment.