e70e2fecb3a72ffb01075e1adb7a0264a357058f
[ghc-hetmet.git] / ghc / compiler / simplStg / SimplStg.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface SimplStg where
3 import CmdLineOpts(GlobalSwitch, StgToDo, SwitchResult)
4 import CostCentre(CostCentre)
5 import Id(Id)
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)
11