X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FGenSpecEtc.lhs;h=27e4a005503e78eff186900efa34ed7863270392;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=f0008df8d09da11be1a8d451722926a3976d5ea7;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/GenSpecEtc.lhs b/ghc/compiler/typecheck/GenSpecEtc.lhs
index f0008df..27e4a00 100644
--- a/ghc/compiler/typecheck/GenSpecEtc.lhs
+++ b/ghc/compiler/typecheck/GenSpecEtc.lhs
@@ -18,14 +18,14 @@ import Ubiq
 import TcMonad
 import Inst		( Inst, InstOrigin(..), LIE(..), plusLIE, 
 			  newDicts, tyVarsOfInst, instToId )
-import TcEnv		( tcGetGlobalTyVars, newMonoIds )
+import TcEnv		( tcGetGlobalTyVars )
 import TcSimplify	( tcSimplify, tcSimplifyAndCheck, tcSimplifyWithExtraGlobals )
 import TcType		( TcType(..), TcThetaType(..), TcTauType(..), 
 			  TcTyVarSet(..), TcTyVar(..), tcInstType, zonkTcType )
 
 import HsSyn		( HsBinds(..), Bind(..), MonoBinds(..), HsExpr, OutPat(..), 
-			  Sig, HsLit, ArithSeqInfo, InPat, GRHSsAndBinds, Match, Fake,
-			  collectBinders )
+			  Sig, HsLit, ArithSeqInfo, InPat, GRHSsAndBinds, Match, Fake
+			)
 import TcHsSyn		( TcIdOcc(..), TcIdBndr(..), TcHsBinds(..), TcBind(..), TcExpr(..) )
 
 import Bag		( Bag, foldBag, bagToList, listToBag, isEmptyBag )