X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplStg%2FUpdAnal.lhs;h=59768a2d9f1434bff28c2a661be8367474d30980;hb=3cbb4112ec0d75f517fb07ccb6ae42039686b757;hp=2b754977288be6bc6bb7d0ed81309da219be284d;hpb=7a3bd641457666e10d0a47be9f22762e03defbf0;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplStg/UpdAnal.lhs b/ghc/compiler/simplStg/UpdAnal.lhs
index 2b75497..59768a2 100644
--- a/ghc/compiler/simplStg/UpdAnal.lhs
+++ b/ghc/compiler/simplStg/UpdAnal.lhs
@@ -14,24 +14,23 @@
 >
 > IMP_Ubiq(){-uitous-}
 >
+> import Prelude hiding ( lookup )
+>
 > import StgSyn
+> import Id		( SYN_IE(IdEnv), growIdEnv, addOneToIdEnv, combineIdEnvs, nullIdEnv, 
+>			  unitIdEnv, mkIdEnv, rngIdEnv, lookupIdEnv, 
+>			  SYN_IE(IdSet),
+>			  getIdUpdateInfo, addIdUpdateInfo, mkSysLocal, idType, isImportedId,
+>			  externallyVisibleId,
+>			  SYN_IE(Id), GenId
+>			)
+> import IdInfo		( UpdateInfo, SYN_IE(UpdateSpec), mkUpdateInfo, updateInfoMaybe )
+> import Type		( splitFunTy, splitSigmaTy )
+> import UniqSet
+> import Unique		( getBuiltinUniques )
+> import SrcLoc		( noSrcLoc )
 > import Util		( panic )
 >
-> updateAnalyse :: [StgBinding] -> [StgBinding] {- Exported -}
-> updateAnalyse = panic "UpdAnal.updateAnalyse"
->
-> {- LATER: to end of file:
-> --import Type		( splitFunTy, splitSigmaTy, Class, TyVarTemplate,
-> --			  SYN_IE(TauType)
-> --			)
-> --import Id
-> --import IdInfo
-> --import Pretty
-> --import SrcLoc 	( noSrcLoc )
-> --import StgSyn
-> --import UniqSet
-> --import Unique 	( getBuiltinUniques )
-> --import Util
 
 %-----------------------------------------------------------------------------
 \subsection{Reverse application}
@@ -511,6 +510,5 @@ suffice for now.
 >		 		addIdUpdateInfo v
 >					(mkUpdateInfo (mkUpdateSpec v c))
 >		| otherwise    = v
-> -}
 
 %-----------------------------------------------------------------------------