diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-23 21:09:01 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-23 21:09:01 +0100 |
| commit | 4bda9677db3fe22615b2c6e39b54a0f491dccd87 (patch) | |
| tree | d8199e6397fd49537bfa270f653d570ffeaa594b /compiler/rename/RnPat.lhs | |
| parent | 6cf0e211c268c6a0ac2913c8900ac1b38404b996 (diff) | |
| download | haskell-4bda9677db3fe22615b2c6e39b54a0f491dccd87.tar.gz | |
Don't warn about defining deprecated class methods
We only warn when the method is used, not when it is defined as part
of an instance.
Diffstat (limited to 'compiler/rename/RnPat.lhs')
| -rw-r--r-- | compiler/rename/RnPat.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs index e37860abb7..57f75fb50d 100644 --- a/compiler/rename/RnPat.lhs +++ b/compiler/rename/RnPat.lhs @@ -483,7 +483,7 @@ rnHsRecFields1 ctxt mk_arg (HsRecFields { rec_flds = flds, rec_dotdot = dotdot } rn_fld pun_ok parent (HsRecField { hsRecFieldId = fld , hsRecFieldArg = arg , hsRecPun = pun }) - = do { fld'@(L loc fld_nm) <- wrapLocM (lookupSubBndrOcc parent doc) fld + = do { fld'@(L loc fld_nm) <- wrapLocM (lookupSubBndrOcc True parent doc) fld ; arg' <- if pun then do { checkErr pun_ok (badPun fld) ; return (L loc (mk_arg (mkRdrUnqual (nameOccName fld_nm)))) } |