1 2 3 4 5 6
module CoreArity where import BasicTypes import CoreSyn etaExpandToJoinPoint :: JoinArity -> CoreExpr -> ([CoreBndr], CoreExpr)