From 230e138114aced71beb2aaf0ff7c090a4ebfd403 Mon Sep 17 00:00:00 2001 From: sof Date: Sun, 18 May 1997 23:21:16 +0000 Subject: [PATCH] [project @ 1997-05-18 23:21:16 by sof] 2.0x bootable --- ghc/compiler/simplStg/LambdaLift.lhs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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} -- 1.7.10.4