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)
8 import SplitUniq(SplitUniqSupply)
9 import StgSyn(StgAtom, StgBinderInfo, StgBinding, StgExpr, StgRhs, UpdateFlag)
11 import UniType(UniType)
19 topCoreBindsToStg :: SplitUniqSupply -> [CoreBinding Id Id] -> [StgBinding Id Id]