1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
3 import BasicLit(BasicLit)
4 import CoreSyn(CoreAtom, CoreBinding, CoreCaseAlternatives, CoreExpr)
5 import CostCentre(CostCentre)
7 import PlainCore(PlainCoreProgram(..))
9 import SplitUniq(SplitUniqSupply)
11 import UniType(UniType)
15 type PlainCoreProgram = [CoreBinding Id Id]
16 doStaticArgs :: [CoreBinding Id Id] -> SplitUniqSupply -> [CoreBinding Id Id]