X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsMonad.lhs;h=6fc4aa7494fec24cc5d61159a0c5f6ac26a2d6d5;hb=225d251337438e2f7870f0ec2781b1c616ef7462;hp=717faad02c6ffc5896e356bc8430c0b44b8a0369;hpb=b4775e5e760111e2d71fba3c44882dce390edfb2;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsMonad.lhs b/ghc/compiler/deSugar/DsMonad.lhs
index 717faad..6fc4aa7 100644
--- a/ghc/compiler/deSugar/DsMonad.lhs
+++ b/ghc/compiler/deSugar/DsMonad.lhs
@@ -25,7 +25,7 @@ module DsMonad (
 
 #include "HsVersions.h"
 
-import HsSyn		( HsMatchContext )
+import TcHsSyn		( TypecheckedPat, TypecheckedMatchContext )
 import Bag		( emptyBag, snocBag, Bag )
 import ErrUtils 	( WarnMsg )
 import Id		( mkSysLocal, setIdUnique, Id )
@@ -33,12 +33,10 @@ import Module		( Module )
 import Var		( TyVar, setTyVarUnique )
 import Outputable
 import SrcLoc		( noSrcLoc, SrcLoc )
-import TcHsSyn		( TypecheckedPat )
 import Type             ( Type )
 import UniqSupply	( initUs_, splitUniqSupply, uniqFromSupply, uniqsFromSupply,
 			  UniqSM, UniqSupply )
 import Unique		( Unique )
-import Util		( zipWithEqual )
 import Name		( Name )
 import CmdLineOpts	( DynFlags )
 
@@ -219,7 +217,7 @@ dsLookupGlobalValue name dflags us genv loc mod warns
 
 \begin{code}
 data DsMatchContext
-  = DsMatchContext HsMatchContext [TypecheckedPat] SrcLoc
+  = DsMatchContext TypecheckedMatchContext [TypecheckedPat] SrcLoc
   | NoMatchContext
   deriving ()
 \end{code}