vVar, vType, vNote, vLet,
vLams, vLamsWithoutLC, vVarApps,
- vCaseDEFAULT, vInlineMe
+ vCaseDEFAULT
) where
#include "HsVersions.h"
import CoreSyn
import Type ( Type )
import Var
-import Outputable
type Vect a = (a,a)
type VVar = Vect Var
where
mkDEFAULT e = [(DEFAULT, [], e)]
-vInlineMe :: VExpr -> VExpr
-vInlineMe (vexpr, lexpr) = (mkInlineMe vexpr, mkInlineMe lexpr)
-
-mkInlineMe :: CoreExpr -> CoreExpr
-mkInlineMe = pprTrace "VectCore.mkInlineMe" (text "Roman: need to replace mkInlineMe with an InlineRule somehow")