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