[project @ 1996-03-21 12:46:33 by partain]

[ghc-hetmet.git] / ghc / compiler / typecheck / GenSpecEtc.lhs

diff --git a/ghc/compiler/typecheck/GenSpecEtc.lhs b/ghc/compiler/typecheck/GenSpecEtc.lhs
index f0008df..27e4a00 100644 (file)
--- 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 )