diff options
-rw-r--r-- | compiler/GHC/HsToCore/Quote.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore/Quote.hs b/compiler/GHC/HsToCore/Quote.hs index 802ba84bb3..27dd193499 100644 --- a/compiler/GHC/HsToCore/Quote.hs +++ b/compiler/GHC/HsToCore/Quote.hs @@ -1189,7 +1189,7 @@ addHsOuterFamEqnTyVarBinds outer_bndrs thing_inside = do addSimpleTyVarBinds ReuseBoundNames imp_tvs $ thing_inside $ coreNothingList elt_ty HsOuterExplicit{hso_bndrs = exp_bndrs} -> - addHsTyVarBinds ReuseBoundNames exp_bndrs $ \th_exp_bndrs -> + addHsTyVarBinds FreshNamesOnly exp_bndrs $ \th_exp_bndrs -> thing_inside $ coreJustList elt_ty th_exp_bndrs addHsOuterSigTyVarBinds :: |