import DataCon ( DataCon )
import TyCon ( TyCon )
import Class ( Class )
-import Name ( Name, NamedThing(..), getSrcLoc, nameModule )
+import Name ( Name, NamedThing(..), getSrcLoc, nameModule, isExternalName )
import PrelNames ( thFAKE )
import NameEnv
import OccName ( mkDFunOcc, occNameString )
tcLookupGlobal :: Name -> TcM TyThing
tcLookupGlobal name
- = ASSERT( isGlobalName name )
+ = ASSERT( isExternalName name )
do { env <- getGblEnv
-- Try local envt