diff options
Diffstat (limited to 'compiler/main/HscTypes.hs')
-rw-r--r-- | compiler/main/HscTypes.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/HscTypes.hs b/compiler/main/HscTypes.hs index 9b4cd65016..16a1ebd98c 100644 --- a/compiler/main/HscTypes.hs +++ b/compiler/main/HscTypes.hs @@ -1529,7 +1529,7 @@ substInteractiveContext ictxt@InteractiveContext{ ic_tythings = tts } subst | isEmptyTCvSubst subst = ictxt | otherwise = ictxt { ic_tythings = map subst_ty tts } where - subst_ty (AnId id) = AnId $ id `setIdType` substTy subst (idType id) + subst_ty (AnId id) = AnId $ id `setIdType` substTyUnchecked subst (idType id) subst_ty tt = tt instance Outputable InteractiveImport where |