vVar, vType, vNote, vLet,
vLams, vLamsWithoutLC, vVarApps,
- vCaseDEFAULT, vInlineMe
+ vCaseDEFAULT
) where
#include "HsVersions.h"
import CoreSyn
-import CoreUtils ( mkInlineMe )
import Type ( Type )
import Var
where
mkDEFAULT e = [(DEFAULT, [], e)]
-vInlineMe :: VExpr -> VExpr
-vInlineMe (vexpr, lexpr) = (mkInlineMe vexpr, mkInlineMe lexpr)
-