diff options
Diffstat (limited to 'compiler/GHC/Tc/Utils/Zonk.hs')
| -rw-r--r-- | compiler/GHC/Tc/Utils/Zonk.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/GHC/Tc/Utils/Zonk.hs b/compiler/GHC/Tc/Utils/Zonk.hs index c20bb08aac..a11fe41f6a 100644 --- a/compiler/GHC/Tc/Utils/Zonk.hs +++ b/compiler/GHC/Tc/Utils/Zonk.hs @@ -805,10 +805,8 @@ zonkExpr env (HsUnboundVar her occ) ty' <- zonkTcTypeToTypeX env ty return (HER ref ty' u) -zonkExpr env (HsRecFld _ (Ambiguous v occ)) - = return (HsRecFld noExtField (Ambiguous (zonkIdOcc env v) occ)) -zonkExpr env (HsRecFld _ (Unambiguous v occ)) - = return (HsRecFld noExtField (Unambiguous (zonkIdOcc env v) occ)) +zonkExpr env (HsRecSel _ (FieldOcc v occ)) + = return (HsRecSel noExtField (FieldOcc (zonkIdOcc env v) occ)) zonkExpr _ (HsIPVar x id) = return (HsIPVar x id) |