[project @ 1996-01-11 14:06:51 by partain]
[ghc-hetmet.git] / ghc / compiler / simplStg / StgSAT.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface StgSAT where
3 import CostCentre(CostCentre)
4 import Id(Id)
5 import PrimOps(PrimOp)
6 import SplitUniq(SplitUniqSupply)
7 import StgSyn(PlainStgProgram(..), StgAtom, StgBinding, StgCaseAlternatives, StgExpr, StgRhs)
8 import UniType(UniType)
9 import UniqFM(UniqFM)
10 import Unique(Unique)
11 data Id 
12 type PlainStgProgram = [StgBinding Id Id]
13 data StgBinding a b 
14 data StgExpr a b 
15 doStaticArgs :: [StgBinding Id Id] -> SplitUniqSupply -> [StgBinding Id Id]
16