ghc/compiler/tests/deriving/drv001.hs

   1 --!!! canonical weird example for "deriving"
   2
   3 data X a b
   4   = C1 (T a)
   5   | C2 (Y b)
   6   | C3 (X b a)
   7   deriving Text
   8
   9 data Y b
  10   = D1
  11   | D2 (X Int b)
  12   deriving Text
  13
  14 data T a
  15   = E1
  16
  17 instance Eq a => Text (T a) where
  18     showsPrec = error "show"
  19     readsPrec = error "read"