on 8cb86d3 help sign in
20 lines 242 B history raw
1instance Eq a => Eq [a] where (==) _ _ = False
3instance
4 ( Ord a,
5 Ord b
6 )
7 => Ord (a, b)
8 where
10 compare _ _ = GT
12instance
13 (Show a, Show b)
14 => Show
15 ( a,
16 b
17 )
18 where
20 showsPrec _ _ = showString ""