X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcExpr.lhs;h=86013312f75165bda23657f77a31285024a456b0;hb=f6cd95ff9a2bddbd78682dcd9287aec7d152cc13;hp=486976da602a74a6143f1cb66c3c9eaaad7e4efb;hpb=9c2209354ec9c513af06549c0e9341f10f7cee83;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index 486976d..8601331 100644
--- a/ghc/compiler/typecheck/TcExpr.lhs
+++ b/ghc/compiler/typecheck/TcExpr.lhs
@@ -15,8 +15,7 @@ import RnHsSyn		( RenamedHsExpr, RenamedRecordBinds )
 import TcHsSyn		( TcExpr, TcRecordBinds, mkHsLet )
 
 import TcMonad
-import BasicTypes	( RecFlag(..) )
-
+import BasicTypes	( RecFlag(..),  isMarkedStrict )
 import Inst		( InstOrigin(..), 
 			  LIE, mkLIE, emptyLIE, unitLIE, plusLIE, plusLIEs,
 			  newOverloadedLit, newMethod, newIPDict,
@@ -50,7 +49,6 @@ import Id		( idType, recordSelectorFieldLabel, isRecordSelector )
 import DataCon		( dataConFieldLabels, dataConSig, 
 			  dataConStrictMarks
 			)
-import Demand		( isMarkedStrict )
 import Name		( Name )
 import TyCon		( TyCon, tyConTyVars, isAlgTyCon, tyConDataCons )
 import Subst		( mkTopTyVarSubst, substTheta, substTy )