diff options
Diffstat (limited to 'testsuite/tests/typecheck/should_fail/tcfail119.hs')
| -rw-r--r-- | testsuite/tests/typecheck/should_fail/tcfail119.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_fail/tcfail119.hs b/testsuite/tests/typecheck/should_fail/tcfail119.hs new file mode 100644 index 0000000000..52b9c8a5eb --- /dev/null +++ b/testsuite/tests/typecheck/should_fail/tcfail119.hs @@ -0,0 +1,14 @@ +-- Gave a nasty +-- tcLookupGlobal: `FunnyError.$dmb' is not in scope +-- failure in GHC 6.2, because the type-checking of +-- the default method didn't recover. + +module ShouldFail where + +class A x where + a :: x -> () + b :: x -> Bool -> () + b x "Foo" = () -- deliberate type error + +instance A Int where + a _ = () |