From e77403886f512c90120fd2f82dcd3e2b0a1d0b04 Mon Sep 17 00:00:00 2001 From: simonpj Date: Tue, 22 Oct 2002 10:31:21 +0000 Subject: [PATCH] [project @ 2002-10-22 10:31:21 by simonpj] Import wibbles --- ghc/compiler/typecheck/TcExpr.lhs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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(..) ) -- 1.7.10.4