Commit ea6a162f authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix an error message

`y' in the error message
    `x' is not a (visible) method of class `y'
had gone missing.
parent d2b71192
......@@ -232,8 +232,7 @@ lookupInstDeclBndr :: Name -> Located RdrName -> RnM (Located Name)
-- name is only in scope qualified. I.e. even if method op is
-- in scope as M.op, we still allow plain 'op' on the LHS of
-- an instance decl
lookupInstDeclBndr cls rdr = lookup_located_sub_bndr is_op
(ptext SLIT("method of class")) rdr
lookupInstDeclBndr cls rdr = lookup_located_sub_bndr is_op doc rdr
where
doc = ptext SLIT("method of class") <+> quotes (ppr cls)
is_op gre@(GRE {gre_par = ParentIs n}) = n == cls
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment