[project @ 2002-04-01 08:16:49 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / TidyPgm.lhs

diff --git a/ghc/compiler/main/TidyPgm.lhs b/ghc/compiler/main/TidyPgm.lhs
index 38c6745..3bfcb0b 100644 (file)
--- 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 )