[project @ 1996-01-08 20:28:12 by partain]
[ghc.git] / ghc / compiler / simplStg / SatStgRhs.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface SatStgRhs where
3 import Id(Id)
4 import SplitUniq(SplitUniqSupply)
5 import StgSyn(StgBinding)
6 satStgRhs :: [StgBinding Id Id] -> SplitUniqSupply -> [StgBinding Id Id]
7         {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "S" _N_ _N_ #-}
8