From: simonpj <unknown>
Date: Thu, 3 Nov 2005 15:00:23 +0000 (+0000)
Subject: [project @ 2005-11-03 15:00:23 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~77
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=356028e7abbf088d7d71d19997a07a79afbd3c8e;p=ghc-hetmet.git

[project @ 2005-11-03 15:00:23 by simonpj]
Missing import for new assert
---

diff --git a/ghc/compiler/typecheck/TcEnv.lhs b/ghc/compiler/typecheck/TcEnv.lhs
index 1c7e722..f14eb42 100644
--- a/ghc/compiler/typecheck/TcEnv.lhs
+++ b/ghc/compiler/typecheck/TcEnv.lhs
@@ -63,7 +63,7 @@ import InstEnv		( Instance, DFunId, instanceDFunId, instanceHead )
 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 )
@@ -94,7 +94,7 @@ tcLookupLocatedGlobal name
 
 tcLookupGlobal :: Name -> TcM TyThing
 tcLookupGlobal name
-  = ASSERT( isGlobalName name )
+  = ASSERT( isExternalName name )
     do	{ env <- getGblEnv
 	
 		-- Try local envt