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

diff --git a/ghc/compiler/deSugar/DsBinds.lhs b/ghc/compiler/deSugar/DsBinds.lhs
index 41813e4..a4d6dda 100644
--- a/ghc/compiler/deSugar/DsBinds.lhs
+++ b/ghc/compiler/deSugar/DsBinds.lhs
@@ -16,9 +16,12 @@ import Ubiq
 import DsLoop		-- break dsExpr-ish loop
 
 import HsSyn		-- lots of things
+			hiding ( collectBinders{-also in CoreSyn-} )
 import CoreSyn		-- lots of things
 import TcHsSyn		( TypecheckedHsBinds(..), TypecheckedHsExpr(..),
-			  TypecheckedBind(..), TypecheckedMonoBinds(..) )
+			  TypecheckedBind(..), TypecheckedMonoBinds(..),
+			  TypecheckedPat(..)
+			)
 import DsHsSyn		( collectTypedBinders, collectTypedPatBinders )
 
 import DsMonad
@@ -39,7 +42,7 @@ import Type		( mkTyVarTys, mkForAllTys, splitSigmaTy,
 import TyVar		( tyVarSetToList, GenTyVar{-instance Eq-} )
 import Util		( isIn, panic, pprTrace{-ToDo:rm-} )
 import PprCore--ToDo:rm
-import PprType--ToDo:rm
+import PprType		( GenTyVar ) --ToDo:rm
 import Usage--ToDo:rm
 import Unique--ToDo:rm