diff options
| author | simonpj <unknown> | 2000-10-12 15:05:59 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2000-10-12 15:05:59 +0000 |
| commit | db7db1b4dc4d6b7aa2f8c6f57794ac7f3d6ebe2e (patch) | |
| tree | 50beea9269ba12d72bfc9f37d230c8d021246c8d /ghc/compiler/rename/RnMonad.lhs | |
| parent | 90a24e7d2e7906c1b5c7c81265169d8bbb47dbd3 (diff) | |
| download | haskell-db7db1b4dc4d6b7aa2f8c6f57794ac7f3d6ebe2e.tar.gz | |
[project @ 2000-10-12 15:05:59 by simonpj]
More of Simon
Diffstat (limited to 'ghc/compiler/rename/RnMonad.lhs')
| -rw-r--r-- | ghc/compiler/rename/RnMonad.lhs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs index d80dd25099..37639feb47 100644 --- a/ghc/compiler/rename/RnMonad.lhs +++ b/ghc/compiler/rename/RnMonad.lhs @@ -386,14 +386,6 @@ initIfaceRnMS mod thing_inside = initRnMS emptyRdrEnv emptyNameEnv InterfaceMode $ setModuleRn mod thing_inside -builtins :: FiniteMap (ModuleName,OccName) Name -builtins = listToFM wired_in `plusFM` listToFM known_key - where - wired_in = [ ((moduleName (nameModule name), nameOccName name), name) - | name <- wiredInNames ] - - known_key = [ ((rdrNameModule rdr_name, rdrNameOcc rdr_name), mkKnownKeyGlobal rdr_name uniq) - | (rdr_name, uniq) <- knownKeyRdrNames ] \end{code} @renameSourceCode@ is used to rename stuff ``out-of-line''; |