summaryrefslogtreecommitdiff
path: root/compiler/GHC/Tc/Utils/Zonk.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Tc/Utils/Zonk.hs')
-rw-r--r--compiler/GHC/Tc/Utils/Zonk.hs4
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)