diff options
| author | simonmar <unknown> | 2000-11-27 10:48:10 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-11-27 10:48:10 +0000 |
| commit | 1da5ea2694d0ab7d7487b09b3f682e39ff816cae (patch) | |
| tree | 225c3ae5cd72a785e2c5d97a4ce2d457ea960d8d /ghc/compiler/compMan | |
| parent | e8470a28fb1d934b592341d55f69bc990fdf25c4 (diff) | |
| download | haskell-1da5ea2694d0ab7d7487b09b3f682e39ff816cae.tar.gz | |
[project @ 2000-11-27 10:48:10 by simonmar]
rename filterNameEnv-->filterNameMap to avoid clash with Name.filterNameEnv.
Diffstat (limited to 'ghc/compiler/compMan')
| -rw-r--r-- | ghc/compiler/compMan/CmLink.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/compMan/CmLink.lhs b/ghc/compiler/compMan/CmLink.lhs index d3ed436224..efdc332efe 100644 --- a/ghc/compiler/compMan/CmLink.lhs +++ b/ghc/compiler/compMan/CmLink.lhs @@ -205,8 +205,8 @@ invalidLinkable = throwDyn (OtherError "linkable doesn't contain entirely object -- various environments any previous versions of these modules. linkFinish pls mods ul_trees = do resolveObjs - let itbl_env' = filterNameEnv mods (itbl_env pls) - closure_env' = filterNameEnv mods (closure_env pls) + let itbl_env' = filterNameMap mods (itbl_env pls) + closure_env' = filterNameMap mods (closure_env pls) stuff = [ (trees,itbls) | Trees trees itbls <- ul_trees ] (ibinds, new_itbl_env, new_closure_env) <- |