diff options
Diffstat (limited to 'testsuite/tests/rename/should_fail/rnfail039.hs')
| -rw-r--r-- | testsuite/tests/rename/should_fail/rnfail039.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_fail/rnfail039.hs b/testsuite/tests/rename/should_fail/rnfail039.hs new file mode 100644 index 0000000000..428d8d9716 --- /dev/null +++ b/testsuite/tests/rename/should_fail/rnfail039.hs @@ -0,0 +1,12 @@ +-- !!! Checking that qualified method names are ILLEGAL +-- in the binding position instance body. +module ShouldFail where + +import Prelude hiding (Eq, (==)) +import Prelude as P (Eq,(==)) + +data Foo = Foo Int Integer + +instance P.Eq Foo where + (Foo a1 b1) P.== (Foo a2 b2) = a1 P.== a2 && b1 P.== b2 + |