projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
FIX #1181: parseStaticFlags should not be required
[ghc-hetmet.git]
/
compiler
/
main
/
TidyPgm.lhs
diff --git
a/compiler/main/TidyPgm.lhs
b/compiler/main/TidyPgm.lhs
index
6b89b33
..
7405d14
100644
(file)
--- a/
compiler/main/TidyPgm.lhs
+++ b/
compiler/main/TidyPgm.lhs
@@
-32,7
+32,7
@@
import Name ( Name, getOccName, nameOccName, mkInternalName,
localiseName, isExternalName, nameSrcLoc,
isWiredInName, getName
)
localiseName, isExternalName, nameSrcLoc,
isWiredInName, getName
)
-import NameSet ( NameSet, elemNameSet, filterNameSet )
+import NameSet ( NameSet, elemNameSet )
import IfaceEnv ( allocateGlobalBinder )
import NameEnv ( filterNameEnv, mapNameEnv )
import OccName ( TidyOccEnv, initTidyOccEnv, tidyOccName )
import IfaceEnv ( allocateGlobalBinder )
import NameEnv ( filterNameEnv, mapNameEnv )
import OccName ( TidyOccEnv, initTidyOccEnv, tidyOccName )
@@
-287,12
+287,6
@@
tidyProgram hsc_env
; implicit_binds = getImplicitBinds type_env
; all_tidy_binds = implicit_binds ++ tidy_binds
; alg_tycons = filter isAlgTyCon (typeEnvTyCons type_env)
; implicit_binds = getImplicitBinds type_env
; all_tidy_binds = implicit_binds ++ tidy_binds
; alg_tycons = filter isAlgTyCon (typeEnvTyCons type_env)
-
- ; tidy_vect_info = VectInfo
- (filterNameSet (isElemId type_env)
- (vectInfoCCVar vect_info))
- -- filter against `type_env', not `tidy_type_env', as we must
- -- keep all implicit names
}
; endPass dflags "Tidy Core" Opt_D_dump_simpl all_tidy_binds
}
; endPass dflags "Tidy Core" Opt_D_dump_simpl all_tidy_binds
@@
-314,7
+308,7
@@
tidyProgram hsc_env
md_fam_insts = fam_insts,
md_exports = exports,
md_modBreaks = modBreaks,
md_fam_insts = fam_insts,
md_exports = exports,
md_modBreaks = modBreaks,
- md_vect_info = tidy_vect_info
+ md_vect_info = vect_info -- is already tidy
})
}
})
}
@@
-323,11
+317,6
@@
lookup_dfun type_env dfun_id
Just (AnId dfun_id') -> dfun_id'
other -> pprPanic "lookup_dfun" (ppr dfun_id)
Just (AnId dfun_id') -> dfun_id'
other -> pprPanic "lookup_dfun" (ppr dfun_id)
-isElemId type_env name
- = case lookupTypeEnv type_env name of
- Just (AnId _) -> True
- _ -> False
-
tidyTypeEnv :: Bool -> NameSet -> TypeEnv -> [CoreBind] -> TypeEnv
-- The competed type environment is gotten from
tidyTypeEnv :: Bool -> NameSet -> TypeEnv -> [CoreBind] -> TypeEnv
-- The competed type environment is gotten from