on 625f239 help sign in
39 lines 469 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 ""
22instance
23 ( Read a, -- Foo
24 Read b,
25 Read
26 ( c, -- Bar
27 d
28 )
29 )
30 => Read
31 ( a, -- Baz
32 b,
33 ( c, -- Quux
34 d
35 )
36 )
37 where
39 readsPrec = undefined