From 230e138114aced71beb2aaf0ff7c090a4ebfd403 Mon Sep 17 00:00:00 2001
From: sof <unknown>
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 1abccae8c2b9..7995a32c10fd 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}
--
GitLab