diff options
Diffstat (limited to 'compiler/GHC/Tc/Utils/Zonk.hs')
-rw-r--r-- | compiler/GHC/Tc/Utils/Zonk.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Tc/Utils/Zonk.hs b/compiler/GHC/Tc/Utils/Zonk.hs index 4372a39e9d..5ccaa53202 100644 --- a/compiler/GHC/Tc/Utils/Zonk.hs +++ b/compiler/GHC/Tc/Utils/Zonk.hs @@ -915,8 +915,8 @@ zonkExpr env (XExpr (HsWrap co_fn expr)) new_expr <- zonkExpr env1 expr return (XExpr (HsWrap new_co_fn new_expr)) -zonkExpr _ e@(HsUnboundVar {}) - = return e +zonkExpr env (HsUnboundVar v occ) + = return (HsUnboundVar (zonkIdOcc env v) occ) zonkExpr _ expr = pprPanic "zonkExpr" (ppr expr) |