[project @ 1996-02-06 14:32:22 by dnt]
[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