1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface SimplStg where
3 import CmdLineOpts(GlobalSwitch, StgToDo, SwitchResult)
4 import CostCentre(CostCentre)
6 import PreludePS(_PackedString)
7 import Pretty(PprStyle)
8 import SplitUniq(SplitUniqSupply)
9 import StgSyn(StgBinding)
10 stg2stg :: [StgToDo] -> (GlobalSwitch -> SwitchResult) -> _PackedString -> PprStyle -> SplitUniqSupply -> [StgBinding Id Id] -> _State _RealWorld -> (([StgBinding Id Id], ([CostCentre], [CostCentre])), _State _RealWorld)