X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FTidyPgm.lhs;h=3bfcb0b6d415d54b2b6523487caf7418df28bcf8;hb=995c2dc3387f079a3ea4785c4e1b4be21604d749;hp=38c6745ec3198533e6ebb07fa99c7e2d3138c77a;hpb=76293b141bba4c15a6fd619dd980502e98614790;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/TidyPgm.lhs b/ghc/compiler/main/TidyPgm.lhs
index 38c6745..3bfcb0b 100644
--- a/ghc/compiler/main/TidyPgm.lhs
+++ b/ghc/compiler/main/TidyPgm.lhs
@@ -20,8 +20,8 @@ import VarEnv
 import VarSet
 import Var		( Id, Var )
 import Id		( idType, idInfo, idName, idCoreRules, 
-			  isExportedId, idUnique, mkVanillaGlobal, isLocalId, 
-			  isImplicitId, mkUserLocal, setIdInfo
+			  isExportedId, mkVanillaGlobal, isLocalId, 
+			  isImplicitId 
 			) 
 import IdInfo		{- loads of stuff -}
 import NewDemand	( isBottomingSig, topSig )
@@ -42,7 +42,6 @@ import HscTypes		( PersistentCompilerState( pcs_PRS ),
 import FiniteMap	( lookupFM, addToFM )
 import Maybes		( orElse )
 import ErrUtils		( showPass, dumpIfSet_core )
-import SrcLoc		( noSrcLoc )
 import UniqFM		( mapUFM )
 import UniqSupply	( splitUniqSupply, uniqFromSupply )
 import List		( partition )