diff options
Diffstat (limited to 'compiler/deSugar/Check.hs')
| -rw-r--r-- | compiler/deSugar/Check.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/Check.hs b/compiler/deSugar/Check.hs index 386652a5e4..d77d3786bb 100644 --- a/compiler/deSugar/Check.hs +++ b/compiler/deSugar/Check.hs @@ -657,7 +657,7 @@ mkOneConFull x usupply con = (con_abs, constraints) Just (tc, tys) -> ASSERT( tc == data_tc ) tys Nothing -> pprPanic "mkOneConFull: Not TyConApp:" (ppr res_ty) - subst1 = zipTopTvSubst univ_tvs tc_args + subst1 = zipTopTCvSubst univ_tvs tc_args (subst, ex_tvs') = cloneTyVarBndrs subst1 ex_tvs usupply1 |