ghc/tests/rename/should_compile/rn036.hs

   1 -- !!! Checking that qualified method names are legal in instance body.
   2 module ShouldSucceed 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