{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
interface ConFold where
import CoreSyn(CoreAtom, CoreExpr)
import Id(Id)
import PrimOps(PrimOp)
import SimplEnv(SimplEnv)
import SimplMonad(SimplCount)
import SplitUniq(SplitUniqSupply)
import UniType(UniType)
completePrim :: SimplEnv -> PrimOp -> [UniType] -> [CoreAtom Id] -> SplitUniqSupply -> SimplCount -> (CoreExpr Id Id, SimplCount)