diff options
Diffstat (limited to 'compiler/GHC/Tc/Gen/Splice.hs')
| -rw-r--r-- | compiler/GHC/Tc/Gen/Splice.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Gen/Splice.hs b/compiler/GHC/Tc/Gen/Splice.hs index 13cd3e71c9..e8d28a624b 100644 --- a/compiler/GHC/Tc/Gen/Splice.hs +++ b/compiler/GHC/Tc/Gen/Splice.hs @@ -1711,7 +1711,8 @@ reifyInstances' th_nm th_tys Just (tc, tys) -- See #7910 | Just cls <- tyConClass_maybe tc -> do { inst_envs <- tcGetInstEnvs - ; let (matches, unifies, _) = lookupInstEnv False inst_envs cls tys + -- MP: Check call site + ; let (matches, unifies, _) = lookupInstEnv False False inst_envs cls tys ; traceTc "reifyInstances'1" (ppr matches) ; return $ Left (cls, map fst matches ++ unifies) } | isOpenFamilyTyCon tc |