1 {-# GHC_PRAGMA INTERFACE VERSION 3 #-}
2 interface Core2Def where
3 import BinderInfo(BinderInfo)
4 import CmdLineOpts(GlobalSwitch, SwitchResult)
5 import CoreSyn(CoreBinding, CoreExpr)
6 import DefSyn(DefBindee, DefProgram(..))
8 import PlainCore(PlainCoreProgram(..))
12 type DefProgram = [CoreBinding Id DefBindee]
14 type PlainCoreProgram = [CoreBinding Id Id]
15 c2d :: UniqFM (CoreExpr Id DefBindee) -> CoreExpr (Id, BinderInfo) Id -> CoreExpr Id DefBindee
16 core2def :: (GlobalSwitch -> SwitchResult) -> [CoreBinding Id Id] -> [CoreBinding Id DefBindee]