ghc/tests/simplCore/should_compile/simpl002.hs

   1 -- !!! class/instance mumble that failed Lint at one time
   2 --
   3 module Test where
   4 class Foo a where
   5    op :: Int -> a -> Bool
   6
   7 data Wibble a b c = MkWibble a b c
   8
   9 instance (Foo a, Foo b, Foo c) => Foo (Wibble a b c) where
  10     op x y = error "xxx"