on d82d607 help sign in
40 lines 459 B history raw
1instance Eq a => Eq [a] where
3 (==) _ _ = False
5instance
6 ( Ord a
7 , Ord b
8 )
9 => Ord (a, b) where
11 compare _ _ = GT
13instance
14 (Show a, Show b)
15 => Show
16 ( a
17 , b
18 ) where
20 showsPrec _ _ = showString ""
22instance
23 ( Read a -- Foo
24 , Read b
25 , Read
26 ( c
27 , -- Bar
28 d
29 )
30 )
31 => Read
32 ( a
33 , -- Baz
34 b
35 , ( c -- Quux
36 , d
37 )
38 ) where
40 readsPrec = undefined