From: simonpj <unknown>
Date: Tue, 22 Oct 2002 10:31:21 +0000 (+0000)
Subject: [project @ 2002-10-22 10:31:21 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1526
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e77403886f512c90120fd2f82dcd3e2b0a1d0b04;p=ghc-hetmet.git

[project @ 2002-10-22 10:31:21 by simonpj]
Import wibbles
---

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index 61edc1c..89b7d9b 100644
--- a/ghc/compiler/typecheck/TcExpr.lhs
+++ b/ghc/compiler/typecheck/TcExpr.lhs
@@ -11,8 +11,10 @@ module TcExpr ( tcExpr, tcExpr_id, tcMonoExpr ) where
 #ifdef GHCI 	/* Only if bootstrapped */
 import {-# SOURCE #-}	TcSplice( tcSpliceExpr, tcBracket )
 import HsSyn		( HsReify(..), ReifyFlavour(..) )
-import TcEnv		( bracketOK, tcMetaTy )
+import TcEnv		( bracketOK, tcMetaTy, tcLookupGlobal,
+			  wellStaged, metaLevel )
 import TcSimplify	( tcSimplifyBracket )
+import Name		( isExternalName )
 import qualified DsMeta
 #endif
 
@@ -33,8 +35,7 @@ import Inst		( InstOrigin(..),
 			)
 import TcBinds		( tcBindsAndThen )
 import TcEnv		( tcLookupClass, tcLookupGlobal_maybe, tcLookupIdLvl,
-			  tcLookupTyCon, tcLookupDataCon, tcLookupId, tcLookupGlobal,
-			  wellStaged, metaLevel
+			  tcLookupTyCon, tcLookupDataCon, tcLookupId
 			)
 import TcMatches	( tcMatchesCase, tcMatchLambda, tcDoStmts )
 import TcMonoType	( tcHsSigType, UserTypeCtxt(..) )