diff options
Diffstat (limited to 'compiler/GHC/Rename/Env.hs')
| -rw-r--r-- | compiler/GHC/Rename/Env.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Rename/Env.hs b/compiler/GHC/Rename/Env.hs index 14916fb9f6..29184bf7f5 100644 --- a/compiler/GHC/Rename/Env.hs +++ b/compiler/GHC/Rename/Env.hs @@ -104,6 +104,7 @@ import Control.Arrow ( first ) import GHC.Types.FieldLabel import GHC.Data.Bag import GHC.Types.PkgQual +import Language.Haskell.Syntax.Basic (FieldLabelString(..)) {- ********************************************************* @@ -498,7 +499,7 @@ lookupRecFieldOcc mb_con rdr_name = lookupExactOrOrig rdr_name id $ -- See Note [Record field names and Template Haskell] do { flds <- lookupConstructorFields con ; env <- getGlobalRdrEnv - ; let lbl = occNameFS (rdrNameOcc rdr_name) + ; let lbl = FieldLabelString $ occNameFS (rdrNameOcc rdr_name) mb_field = do fl <- find ((== lbl) . flLabel) flds -- We have the label, now check it is in scope. If -- there is a qualifier, use pickGREs to check that |