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

[ghc-hetmet.git] / ghc / compiler / compMan / CompManager.lhs

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 2e56d37..dea4136 100644 (file)
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -75,7 +75,7 @@ import HscMain                ( initPersistentCompilerState )
 #endif
 import HscTypes
 import Name            ( Name, NamedThing(..), nameRdrName, nameModule,
-                         isHomePackageName, isGlobalName )
+                         isHomePackageName, isExternalName )
 import NameEnv
 import Rename          ( mkGlobalContext )
 import RdrName         ( emptyRdrEnv )
@@ -253,7 +253,7 @@ cmInfoThing cmstate dflags id
 
      getFixity :: PersistentCompilerState -> Name -> Fixity
      getFixity pcs name
-       | isGlobalName name,
+       | isExternalName name,
          Just iface  <- lookupModuleEnv iface_table (nameModule name),
          Just fixity <- lookupNameEnv (mi_fixities iface) name
          = fixity