on d02483a help sign in
14 lines 214 B history raw
1instance Eq a=>Eq [a] where (==) _ _ = False
3instance (
4 Ord a,
5 Ord b
6 ) => Ord (a,b) where
7 compare _ _ = GT
9instance (Show a, Show b) =>
10 Show (
11 a,
12 b
13 ) where
14 showsPrec _ _ = showString ""