[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / simplCore / ConFold.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface ConFold where
3 import CoreSyn(CoreAtom, CoreExpr)
4 import Id(Id)
5 import PrimOps(PrimOp)
6 import SimplEnv(SimplEnv)
7 import SimplMonad(SimplCount)
8 import SplitUniq(SplitUniqSupply)
9 import UniType(UniType)
10 completePrim :: SimplEnv -> PrimOp -> [UniType] -> [CoreAtom Id] -> SplitUniqSupply -> SimplCount -> (CoreExpr Id Id, SimplCount)
11         {-# GHC_PRAGMA _A_ 4 _U_ 122222 _N_ _S_ "LSLS" _N_ _N_ #-}
12