Test Trac #5287
[ghc.git] / testsuite / tests / deriving / should_fail / T5287.hs
1 {-# LANGUAGE MultiParamTypeClasses, UndecidableInstances #-}
2 module Bug where
3 class A a oops
4 data D d = D d
5 instance A a oops => Read (D a)
6 data E e = E (D e) deriving Read
7
8