From 8fe90ccbca78fe4c00537f1679a7106b4ed14454 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 3 Jan 1997 06:18:45 +0000
Subject: [PATCH] [project @ 1997-01-03 06:18:45 by sof] Brought upto 2.01
 speed

---
 ghc/compiler/simplStg/UpdAnal.lhs |   28 ++++++++++++----------------
 1 file changed, 12 insertions(+), 16 deletions(-)

diff --git a/ghc/compiler/simplStg/UpdAnal.lhs b/ghc/compiler/simplStg/UpdAnal.lhs
index 2b75497..ecd8ed1 100644
--- a/ghc/compiler/simplStg/UpdAnal.lhs
+++ b/ghc/compiler/simplStg/UpdAnal.lhs
@@ -15,23 +15,20 @@
 > IMP_Ubiq(){-uitous-}
 >
 > 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 +508,5 @@ suffice for now.
 >		 		addIdUpdateInfo v
 >					(mkUpdateInfo (mkUpdateSpec v c))
 >		| otherwise    = v
-> -}
 
 %-----------------------------------------------------------------------------
-- 
1.7.10.4