blob: 428d8d971657a9576fe98dbf3f7c7a6152979ff4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
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
|
