[project @ 2001-08-22 11:45:06 by sewardj]
[ghc-hetmet.git] / ghc / tests / rename / should_compile / rn036.hs
1 -- !!! Checking that qualified method names are legal in instance body.
2 module ShouldCompile where
3
4 import Prelude hiding (Eq, (==))
5 import Prelude as P (Eq,(==))
6
7 data Foo = Foo Int Integer
8
9 instance P.Eq Foo where
10   (Foo a1 b1) P.== (Foo a2 b2) = a1 P.== a2 && b1 P.== b2
11
12
13