Major patch to add -fwarn-redundant-constraints
[ghc.git] / testsuite / tests / deriving / should_compile / drv002.hs
1 {-# OPTIONS -fno-warn-redundant-constraints #-}
2
3 module ShouldSucceed where
4
5 data Z a b
6 = C1 (T a)
7 | C2 (Z [a] [b])
8 deriving (Show, Read)
9
10 data T a
11 = E1
12
13 instance Eq a => Show (T a) where
14 showsPrec = error "show"
15 instance Eq a => Read (T a) where
16 readsPrec = error "read"