testsuite/tests/ghc-regress/simplCore/should_compile/simpl002.hs


1
2
3
4
5
6
7
8
9
10

-- !!! class/instance mumble that failed Lint at one time
--
module ShouldCompile where
class Foo a where
   op :: Int -> a -> Bool

data Wibble a b c = MkWibble a b c

instance (Foo a, Foo b, Foo c) => Foo (Wibble a b c) where
    op x y = error "xxx"