diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-10-09 03:02:29 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-10-09 07:35:49 -0500 |
| commit | 7fad107f61313f11cb0b40e0310ede4c119467fd (patch) | |
| tree | 429afa45395d8bcf1fbcef1d455a5861f50d7e71 /compiler/simplCore | |
| parent | ddc79b229d58c1bed8ae19b955b491436e015e96 (diff) | |
| download | haskell-7fad107f61313f11cb0b40e0310ede4c119467fd.tar.gz | |
Clean up some outdated comments (#8418)
Authored-by: Gergely Risko <gergely@risko.hu>
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'compiler/simplCore')
| -rw-r--r-- | compiler/simplCore/SimplCore.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/SimplCore.lhs b/compiler/simplCore/SimplCore.lhs index 4b07d3bb1c..7adee7d509 100644 --- a/compiler/simplCore/SimplCore.lhs +++ b/compiler/simplCore/SimplCore.lhs @@ -53,7 +53,7 @@ import Type ( mkTyConTy ) import RdrName ( mkRdrQual ) import OccName ( mkVarOcc ) import PrelNames ( pluginTyConName ) -import DynamicLoading ( forceLoadTyCon, lookupRdrNameInModule, getValueSafely ) +import DynamicLoading ( forceLoadTyCon, lookupRdrNameInModuleForPlugins, getValueSafely ) import Module ( ModuleName ) import Panic #endif @@ -335,7 +335,7 @@ loadPlugin :: HscEnv -> ModuleName -> IO Plugin loadPlugin hsc_env mod_name = do { let plugin_rdr_name = mkRdrQual mod_name (mkVarOcc "plugin") dflags = hsc_dflags hsc_env - ; mb_name <- lookupRdrNameInModule hsc_env mod_name plugin_rdr_name + ; mb_name <- lookupRdrNameInModuleForPlugins hsc_env mod_name plugin_rdr_name ; case mb_name of { Nothing -> throwGhcExceptionIO (CmdLineError $ showSDoc dflags $ hsep |