X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FCoreLift.lhs;h=59c655aca600404b7085e4d1323c204f1d45e744;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hp=a14bf3d557bb9302bde61ef572f241a3e6a75d2f;hpb=e7498a3ee1d0484d02a9e86633cc179c76ebf36e;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/CoreLift.lhs b/ghc/compiler/coreSyn/CoreLift.lhs
index a14bf3d..59c655a 100644
--- a/ghc/compiler/coreSyn/CoreLift.lhs
+++ b/ghc/compiler/coreSyn/CoreLift.lhs
@@ -12,8 +12,7 @@ module CoreLift (
 	mkLiftedId,
 	liftExpr,
 	bindUnlift,
-	applyBindUnlifts,
-	isUnboxedButNotState
+	applyBindUnlifts
 
     ) where
 
@@ -22,7 +21,7 @@ IMP_Ubiq(){-uitous-}
 import CoreSyn
 import CoreUtils	( coreExprType )
 import Id		( idType, mkSysLocal,
-			  nullIdEnv, growIdEnvList, lookupIdEnv, IdEnv(..),
+			  nullIdEnv, growIdEnvList, lookupIdEnv, SYN_IE(IdEnv),
 			  GenId{-instances-}
 			)
 import Name		( isLocallyDefined, getSrcLoc )