diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-12-23 17:27:24 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-12-23 17:27:24 +0000 |
| commit | cfcddaae2382ddb7f6d6d71fd15501709defd3d7 (patch) | |
| tree | 4959502fce4c85aa3643783a6ee599ff57a4b227 /compiler/rename/RnPat.lhs | |
| parent | bffff2ef177018174737b0f6d61e1082283293f8 (diff) | |
| download | haskell-cfcddaae2382ddb7f6d6d71fd15501709defd3d7.tar.gz | |
Make RnEnv.lookupBindGroupOcc work on Orig RdrNames
Such names can come from Template Haskell; see Trac #5700
Easily fixed, happily.
I also renamed lookupSubBndr to lookupSubBndrOcc, which is
more descriptive.
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 740acc42c5..7dd76bd4e6 100644 --- a/compiler/rename/RnPat.lhs +++ b/compiler/rename/RnPat.lhs @@ -487,7 +487,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 (lookupSubBndr parent doc) fld + = do { fld'@(L loc fld_nm) <- wrapLocM (lookupSubBndrOcc parent doc) fld ; arg' <- if pun then do { checkErr pun_ok (badPun fld) ; return (L loc (mk_arg (mkRdrUnqual (nameOccName fld_nm)))) } |