1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface ConFold where
3 import CoreSyn(CoreAtom, CoreExpr)
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_ #-}