[project @ 1996-01-18 16:33:17 by partain]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreLift.hi

diff --git a/ghc/compiler/coreSyn/CoreLift.hi b/ghc/compiler/coreSyn/CoreLift.hi
index 0bd7297..03bd24f 100644 (file)
--- a/ghc/compiler/coreSyn/CoreLift.hi
+++ b/ghc/compiler/coreSyn/CoreLift.hi
@@ -19,6 +19,7 @@ data SplitUniqSupply
 data Unique 
 applyBindUnlifts :: [CoreExpr Id Id -> CoreExpr Id Id] -> CoreExpr Id Id -> CoreExpr Id Id
 bindUnlift :: Id -> Id -> CoreExpr Id Id -> CoreExpr Id Id
+isUnboxedButNotState :: UniType -> Bool
 liftCoreBindings :: SplitUniqSupply -> [CoreBinding Id Id] -> [CoreBinding Id Id]
 liftExpr :: Id -> CoreExpr Id Id -> CoreExpr Id Id
 mkLiftedId :: Id -> Unique -> (Id, Id)