From: simonpj <unknown>
Date: Mon, 13 Jan 2003 13:10:24 +0000 (+0000)
Subject: [project @ 2003-01-13 13:10:19 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1267
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0862ececb9fa3439a0da20076a8b2db0f3ee76a4;p=ghc-hetmet.git

[project @ 2003-01-13 13:10:19 by simonpj]
Import trimming
---

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 10fe8f6..4d9e057 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -49,7 +49,7 @@ import TysWiredIn	( unitTyCon )	-- A little odd
 import Finder		( findModule )
 import FiniteMap
 import UniqSupply
-import SrcLoc		( SrcLoc, noSrcLoc, importedSrcLoc )
+import SrcLoc		( SrcLoc, importedSrcLoc )
 import Outputable
 import ListSetOps	( removeDups, equivClasses )
 import BasicTypes	( mapIPName, FixitySig(..) )
diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 76dd8da..9f52b96 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -38,7 +38,7 @@ import Name		( Name {-instance NamedThing-}, isWiredInName, isInternalName, name
 			 )
 import NameEnv 		( delFromNameEnv, lookupNameEnv )
 import NameSet
-import Module		( Module, isHomeModule, extendModuleSet, moduleEnvElts )
+import Module		( Module, isHomeModule )
 import PrelNames	( hasKey, fractionalClassKey, numClassKey, 
 			  integerTyConName, doubleTyConName )
 import FiniteMap
diff --git a/ghc/compiler/typecheck/Inst.lhs b/ghc/compiler/typecheck/Inst.lhs
index 464ec76..8b045ad 100644
--- a/ghc/compiler/typecheck/Inst.lhs
+++ b/ghc/compiler/typecheck/Inst.lhs
@@ -74,7 +74,6 @@ import VarEnv	( TidyEnv, emptyTidyEnv, lookupSubstEnv, SubstResult(..) )
 import VarSet	( elemVarSet, emptyVarSet, unionVarSet )
 import TysWiredIn ( floatDataCon, doubleDataCon )
 import PrelNames( fromIntegerName, fromRationalName, rationalTyConName )
-import Util	( equalLength )
 import BasicTypes( IPName(..), mapIPName, ipNameName )
 import UniqSupply( uniqsFromSupply )
 import Outputable
diff --git a/ghc/compiler/typecheck/TcRnMonad.lhs b/ghc/compiler/typecheck/TcRnMonad.lhs
index e54725d..a9746a7 100644
--- a/ghc/compiler/typecheck/TcRnMonad.lhs
+++ b/ghc/compiler/typecheck/TcRnMonad.lhs
@@ -14,7 +14,7 @@ import HscTypes		( HscEnv(..), PersistentCompilerState(..),
 			  GlobalRdrEnv, LocalRdrEnv, NameCache, FixityEnv,
 			  GhciMode, lookupType, unQualInScope )
 import TcRnTypes
-import Module		( Module, moduleName, unitModuleEnv, foldModuleEnv )
+import Module		( Module, unitModuleEnv, foldModuleEnv )
 import Name		( Name, isInternalName )
 import Type		( Type )
 import NameEnv		( extendNameEnvList )
diff --git a/ghc/compiler/typecheck/TcSimplify.lhs b/ghc/compiler/typecheck/TcSimplify.lhs
index 9e1f4d7..0fb10ab 100644
--- a/ghc/compiler/typecheck/TcSimplify.lhs
+++ b/ghc/compiler/typecheck/TcSimplify.lhs
@@ -35,7 +35,7 @@ import Inst		( lookupInst, LookupInstResult(..),
 			  instBindingRequired, instCanBeGeneralised,
 			  newDictsFromOld, tcInstClassOp,
 			  getDictClassTys, isTyVarDict,
-			  instLoc, pprInst, zonkInst, tidyInsts, tidyMoreInsts,
+			  instLoc, zonkInst, tidyInsts, tidyMoreInsts,
 			  Inst, pprInsts, pprInstsInFull,
 			  isIPDict, isInheritableInst
 			)