[project @ 2002-03-14 15:27:15 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / RnHiFiles.lhs

diff --git a/ghc/compiler/rename/RnHiFiles.lhs b/ghc/compiler/rename/RnHiFiles.lhs
index 586f653..8d674a5 100644 (file)
--- a/ghc/compiler/rename/RnHiFiles.lhs
+++ b/ghc/compiler/rename/RnHiFiles.lhs
@@ -41,7 +41,7 @@ import ParseIface     ( parseIface )
 
 import PrelNames       ( gHC_PRIM_Name, gHC_PRIM )
 import Name            ( Name {-instance NamedThing-}, 
-                         nameModule, isLocalName, nameIsLocalOrFrom
+                         nameModule, isInternalName, nameIsLocalOrFrom
                         )
 import NameEnv
 import NameSet
@@ -80,7 +80,7 @@ import List           ( isSuffixOf )
 \begin{code}
 loadHomeInterface :: SDoc -> Name -> RnM d ModIface
 loadHomeInterface doc_str name
-  = ASSERT2( not (isLocalName name), ppr name <+> parens doc_str )
+  = ASSERT2( not (isInternalName name), ppr name <+> parens doc_str )
     loadInterface doc_str (moduleName (nameModule name)) ImportBySystem
 
 loadOrphanModules :: [ModuleName] -> RnM d ()