1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
3 import CostCentre(CostCentre)
6 import SplitUniq(SplitUniqSupply)
7 import StgSyn(PlainStgProgram(..), StgAtom, StgBinding, StgCaseAlternatives, StgExpr, StgRhs)
8 import UniType(UniType)
12 type PlainStgProgram = [StgBinding Id Id]
15 doStaticArgs :: [StgBinding Id Id] -> SplitUniqSupply -> [StgBinding Id Id]