on a392aef help sign in
41 lines 472 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, -- Bar
29 d
30 )
31 )
32 => Read
33 ( a, -- Baz
34 b,
35 ( c, -- Quux
36 d
37 )
38 )
39 where
41 readsPrec = undefined