[project @ 1998-03-19 23:54:49 by simonpj]

[ghc-hetmet.git] / ghc / compiler / simplStg / LambdaLift.lhs

diff --git a/ghc/compiler/simplStg/LambdaLift.lhs b/ghc/compiler/simplStg/LambdaLift.lhs
index 1f54bad..f342664 100644 (file)
--- a/ghc/compiler/simplStg/LambdaLift.lhs
+++ b/ghc/compiler/simplStg/LambdaLift.lhs
@@ -11,7 +11,8 @@ module LambdaLift ( liftProgram ) where
 import StgSyn
 
 import Bag             ( Bag, emptyBag, unionBags, unitBag, snocBag, bagToList )
-import Id              ( idType, mkSysLocal, addIdArity, 
+import MkId            ( mkSysLocal )
+import Id              ( idType, addIdArity, 
                          mkIdSet, unitIdSet, minusIdSet, setIdVisibility,
                          unionManyIdSets, idSetToList, IdSet,
                          nullIdEnv, growIdEnvList, lookupIdEnv, IdEnv,