diff options
| author | simonpj <unknown> | 2000-10-12 13:44:59 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2000-10-12 13:44:59 +0000 |
| commit | 40dfb7ac2b32f5ed38249f77c416e413b358df1c (patch) | |
| tree | 0b1bc6540b6c425962fa160605e33a6dc7489d1c /ghc/compiler/rename | |
| parent | 30d559930fff086ad3a8ef4162e7d748d1e96b70 (diff) | |
| download | haskell-40dfb7ac2b32f5ed38249f77c416e413b358df1c.tar.gz | |
[project @ 2000-10-12 13:44:59 by simonpj]
Simons work, mainly on the type checker
Diffstat (limited to 'ghc/compiler/rename')
| -rw-r--r-- | ghc/compiler/rename/RnMonad.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs index f5d4641a99..d80dd25099 100644 --- a/ghc/compiler/rename/RnMonad.lhs +++ b/ghc/compiler/rename/RnMonad.lhs @@ -329,7 +329,6 @@ initRn :: DynFlags -> Finder -> GlobalSymbolTable -> Module -> SrcLoc initRn dflags finder gst prs mod loc do_rn = do - himaps <- mkModuleHiMaps dirs names_var <- newIORef (prsNS pcs) errs_var <- newIORef (emptyBag,emptyBag) iface_var <- newIORef (initIfaces prs) @@ -408,11 +407,11 @@ once you must either split it, or install a fresh unique supply. \begin{code} renameSourceCode :: DynFlags -> Module - -> RnNameSupply + -> PersistentRenamerState -> RnMS r -> r -renameSourceCode dflags mod name_supply m +renameSourceCode dflags mod prs m = unsafePerformIO ( -- It's not really unsafe! When renaming source code we -- only do any I/O if we need to read in a fixity declaration; |