From e8f2142d81b97d8460f63ea0becf54a408b876b4 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 22 Jul 2005 13:58:17 +0000
Subject: [PATCH] [project @ 2005-07-22 13:58:17 by simonpj] Import trimming

---
 ghc/compiler/rename/RnEnv.lhs    |    4 ++--
 ghc/compiler/typecheck/Inst.lhs  |    3 +--
 ghc/compiler/typecheck/TcEnv.lhs |    1 -
 3 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index e0d08fd..1e464a1 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -33,8 +33,8 @@ module RnEnv (
 import LoadIface	( loadHomeInterface, loadSrcInterface )
 import IfaceEnv		( lookupOrig, newGlobalBinder, newIPName )
 import HsSyn		( FixitySig(..), HsExpr(..), SyntaxExpr, SyntaxTable,
-			  HsType(..), HsExplicitForAll(..), LHsTyVarBndr, LHsType, 
-			  LSig, Sig(..), Fixity, hsLTyVarName, hsLTyVarLocNames, replaceTyVarName )
+			  LHsTyVarBndr, LHsType, 
+			  Fixity, hsLTyVarLocNames, replaceTyVarName )
 import RdrHsSyn		( extractHsTyRdrTyVars )
 import RdrName		( RdrName, rdrNameModule, isQual, isUnqual, isOrig,
 			  mkRdrUnqual, setRdrNameSpace, rdrNameOcc,
diff --git a/ghc/compiler/typecheck/Inst.lhs b/ghc/compiler/typecheck/Inst.lhs
index c2927bc..71d3e84 100644
--- a/ghc/compiler/typecheck/Inst.lhs
+++ b/ghc/compiler/typecheck/Inst.lhs
@@ -43,8 +43,7 @@ import {-# SOURCE #-}	TcUnify	( unifyTauTy )	-- Used in checkKind (sigh)
 
 import HsSyn	( HsLit(..), HsOverLit(..), HsExpr(..), LHsExpr, mkHsApp,
 		  nlHsLit, nlHsVar )
-import TcHsSyn	( TcId, TcIdSet, 
-		  mkHsTyApp, mkHsDictApp, zonkId, 
+import TcHsSyn	( mkHsTyApp, mkHsDictApp, zonkId, 
 		  mkCoercion, ExprCoFn
 		)
 import TcRnMonad
diff --git a/ghc/compiler/typecheck/TcEnv.lhs b/ghc/compiler/typecheck/TcEnv.lhs
index 06b79f7..d2bc11a 100644
--- a/ghc/compiler/typecheck/TcEnv.lhs
+++ b/ghc/compiler/typecheck/TcEnv.lhs
@@ -46,7 +46,6 @@ import HsSyn		( LRuleDecl, LHsBinds, LSig,
 			  LHsTyVarBndr, HsTyVarBndr(..), pprLHsBinds )
 import TcIface		( tcImportDecl )
 import IfaceEnv		( newGlobalBinder )
-import TcRnTypes	( pprTcTyThingCategory )
 import TcRnMonad
 import TcMType		( zonkTcType, zonkTcTyVarsAndFV )
 import TcType		( Type, TcKind, TcTyVar, TcTyVarSet, TcType,
-- 
1.7.10.4