From: sof <unknown>
Date: Sun, 18 May 1997 23:21:16 +0000 (+0000)
Subject: [project @ 1997-05-18 23:21:16 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~608
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=230e138114aced71beb2aaf0ff7c090a4ebfd403;p=ghc-hetmet.git

[project @ 1997-05-18 23:21:16 by sof]
2.0x bootable
---

diff --git a/ghc/compiler/simplStg/LambdaLift.lhs b/ghc/compiler/simplStg/LambdaLift.lhs
index 1abccae..7995a32 100644
--- a/ghc/compiler/simplStg/LambdaLift.lhs
+++ b/ghc/compiler/simplStg/LambdaLift.lhs
@@ -12,16 +12,18 @@ IMP_Ubiq(){-uitous-}
 
 import StgSyn
 
-import Bag		( emptyBag, unionBags, unitBag, snocBag, bagToList )
+import Bag		( Bag, emptyBag, unionBags, unitBag, snocBag, bagToList )
 import Id		( idType, mkSysLocal, addIdArity, 
 			  mkIdSet, unitIdSet, minusIdSet, setIdVisibility,
 			  unionManyIdSets, idSetToList, SYN_IE(IdSet),
-			  nullIdEnv, growIdEnvList, lookupIdEnv, SYN_IE(IdEnv)
+			  nullIdEnv, growIdEnvList, lookupIdEnv, SYN_IE(IdEnv),
+			  SYN_IE(Id)
 			)
 import IdInfo		( ArityInfo, exactArity )
+import Name             ( SYN_IE(Module) )
 import SrcLoc		( noSrcLoc )
-import Type		( splitForAllTy, mkForAllTys, mkFunTys )
-import UniqSupply	( getUnique, splitUniqSupply )
+import Type		( splitForAllTy, mkForAllTys, mkFunTys, SYN_IE(Type) )
+import UniqSupply	( getUnique, splitUniqSupply, UniqSupply )
 import Util		( zipEqual, panic, assertPanic )
 \end{code}