X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsExpr.lhs;h=9030f94c3499e8d429e418dbae5ef4d59ead484d;hb=68afb16743cafd5b7495771d359891c6dfc5a186;hp=db63f509582b650678c865e08e99029e162dd527;hpb=3990d44447b6c38a2effd68beb50da459dfd19fc;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index db63f50..9030f94 100644
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -14,7 +14,7 @@ import DsLoop		-- partly to get dsBinds, partly to chk dsExpr
 import HsSyn		( HsExpr(..), HsLit(..), ArithSeqInfo(..),
 			  Match, Qual, HsBinds, Stmt, PolyType )
 import TcHsSyn		( TypecheckedHsExpr(..), TypecheckedHsBinds(..),
-			  TypecheckedRecordBinds(..)
+			  TypecheckedRecordBinds(..), TypecheckedPat(..)
 			)
 import CoreSyn
 
@@ -22,7 +22,8 @@ import DsMonad
 import DsCCall		( dsCCall )
 import DsListComp	( dsListComp )
 import DsUtils		( mkAppDs, mkConDs, mkPrimDs, dsExprToAtom,
-			  mkErrorAppDs, showForErr
+			  mkErrorAppDs, showForErr, EquationInfo,
+			  MatchResult
 			)
 import Match		( matchWrapper )
 
@@ -38,6 +39,7 @@ import Id		( mkTupleCon, idType, nullIdEnv, addOneToIdEnv,
 			)
 import Literal		( mkMachInt, Literal(..) )
 import MagicUFs		( MagicUnfoldingFun )
+import Name		( Name{--O only-} )
 import PprStyle		( PprStyle(..) )
 import PprType		( GenType )
 import PrelInfo		( mkTupleTy, unitTy, nilDataCon, consDataCon,