diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-06-07 14:16:27 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-06-07 14:16:27 +0300 |
| commit | 5cd53c78616a5603ed11837b8d97a700600f32dc (patch) | |
| tree | 00ff8a8f1bef871fec667c17e4d659b008c3c02e | |
| parent | cccdf3b0df83524f73df02fdf10a4f15829400c9 (diff) | |
| download | haskell-wip/T16608.tar.gz | |
Fix buildwip/T16608
| -rw-r--r-- | compiler/main/TidyPgm.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/compiler/main/TidyPgm.hs b/compiler/main/TidyPgm.hs index 3838fd6b70..3f9b24391f 100644 --- a/compiler/main/TidyPgm.hs +++ b/compiler/main/TidyPgm.hs @@ -58,7 +58,6 @@ import HscTypes import Maybes import UniqSupply import Outputable -import Util( filterOut ) import qualified ErrUtils as Err import Control.Monad @@ -174,8 +173,7 @@ mkBootModDetailsTc hsc_env | id <- typeEnvIds type_env , keep_it id ] - final_tcs = filterOut (isWiredInName . getName) tcs - type_env1 = typeEnvFromEntities final_ids final_tcs fam_insts + type_env1 = typeEnvFromEntities final_ids tcs fam_insts insts' = mkFinalClsInsts type_env1 insts pat_syns' = mkFinalPatSyns type_env1 pat_syns type_env' = extendTypeEnvWithPatSyns pat_syns' type_env1 @@ -374,9 +372,7 @@ tidyProgram hsc_env (ModGuts { mg_module = mod , not (isWiredInName (getName id)) ] -- See Note [Drop wired-in things] - ; final_tcs = filterOut (isWiredInName . getName) tcs - -- See Note [Drop wired-in things] - ; type_env = typeEnvFromEntities final_ids final_tcs fam_insts + ; type_env = typeEnvFromEntities final_ids tcs fam_insts ; tidy_cls_insts = mkFinalClsInsts type_env cls_insts ; tidy_patsyns = mkFinalPatSyns type_env patsyns ; tidy_type_env = extendTypeEnvWithPatSyns tidy_patsyns type_env |