From 356028e7abbf088d7d71d19997a07a79afbd3c8e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 3 Nov 2005 15:00:23 +0000
Subject: [PATCH] [project @ 2005-11-03 15:00:23 by simonpj] Missing import
 for new assert

---
 ghc/compiler/typecheck/TcEnv.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4