ghc/compiler/tests/deriving/drv002.hs

   1 data Z a b
   2   = C1 (T a)
   3   | C2 (Z [a] [b])
   4   deriving Text
   5
   6 data T a
   7   = E1
   8
   9 instance Eq a => Text (T a) where
  10     showsPrec = error "show"
  11     readsPrec = error "read"