[project @ 1996-01-11 14:06:51 by partain]
[ghc-hetmet.git] / ghc / compiler / stgSyn / CoreToStg.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface CoreToStg where
3 import BasicLit(BasicLit)
4 import CoreSyn(CoreAtom, CoreBinding, CoreCaseAlternatives, CoreExpr)
5 import CostCentre(CostCentre)
6 import Id(Id)
7 import PrimOps(PrimOp)
8 import SplitUniq(SplitUniqSupply)
9 import StgSyn(StgAtom, StgBinderInfo, StgBinding, StgExpr, StgRhs, UpdateFlag)
10 import TyVar(TyVar)
11 import UniType(UniType)
12 data CoreBinding a b 
13 data CoreExpr a b 
14 data Id 
15 data SplitUniqSupply 
16 data StgBinderInfo 
17 data StgBinding a b 
18 data StgRhs a b 
19 topCoreBindsToStg :: SplitUniqSupply -> [CoreBinding Id Id] -> [StgBinding Id Id]
20