08f6c9165308e4bc2e8def666f599bc1313064c9
[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         {-# GHC_PRAGMA _A_ 7 _U_ 1222122 _N_ _S_ "SSLLU(ALL)LL" _N_ _N_ #-}
12