X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FId.lhs;h=51133408677b7bd3cd7b26e1bf0a675b76a31466;hb=be33dbc967b4915cfdb0307ae1b7ae3cee651b8c;hp=dc1cca8b5571d73aa2e07b3d1f750e1b25b66035;hpb=c29022c49449b7d8862dcc2259e16cafe9461945;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index dc1cca8..5113340 100644
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -148,23 +148,20 @@ import BasicTypes	( Arity )
 import IdInfo
 import Maybes		( maybeToBool )
 import Name	 	( nameUnique, mkLocalName, mkSysLocalName, isLocalName,
-			  mkCompoundName,
-			  isLocallyDefinedName, occNameString, modAndOcc,
-			  isLocallyDefined, changeUnique, isWiredInName,
-			  nameString, getOccString, setNameVisibility,
-			  isExported, ExportFlag(..), Provenance,
+			  mkCompoundName, occNameString, modAndOcc,
+			  changeUnique, isWiredInName, setNameVisibility,
+			  ExportFlag(..), Provenance,
 			  OccName(..), Name, Module,
 			  NamedThing(..)
 			) 
 import PrimOp		( PrimOp )
 import PrelMods		( pREL_TUP, pREL_BASE )
-import Lex		( mkTupNameStr )
 import FieldLabel	( fieldLabelName, FieldLabel(..){-instances-} )
 import PragmaInfo	( PragmaInfo(..) )
 import SrcLoc		( mkBuiltinSrcLoc )
 import TysWiredIn	( tupleTyCon )
 import TyCon		( TyCon, tyConDataCons, isDataTyCon, isNewTyCon, mkSpecTyCon )
-import Type		( mkSigmaTy, mkTyVarTys, mkFunTys, splitSigmaTy,
+import Type		( mkSigmaTy, mkTyVarTys, mkFunTys,
 			  mkTyConApp, instantiateTy, mkForAllTys,
 			  tyVarsOfType, instantiateTy, typePrimRep,
 			  instantiateTauTy,
@@ -175,10 +172,10 @@ import TyVar		( TyVar, alphaTyVars, isEmptyTyVarSet,
 			)
 import UniqFM
 import UniqSet		-- practically all of it
-import Unique		( getBuiltinUniques, pprUnique, Unique, Uniquable(..) )
+import Unique		( getBuiltinUniques, Unique, Uniquable(..) )
 import Outputable
 import SrcLoc		( SrcLoc )
-import Util		( mapAccumL, nOfThem, zipEqual, assoc )
+import Util		( nOfThem, assoc )
 import GlaExts		( Int# )
 \end{code}