diff options
Diffstat (limited to 'compiler/vectorise/VectCore.hs')
| -rw-r--r-- | compiler/vectorise/VectCore.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/compiler/vectorise/VectCore.hs b/compiler/vectorise/VectCore.hs index c78f8cad16..6be1542134 100644 --- a/compiler/vectorise/VectCore.hs +++ b/compiler/vectorise/VectCore.hs @@ -8,12 +8,13 @@ module VectCore ( vVar, vType, vNote, vLet, vLams, vLamsWithoutLC, vVarApps, - vCaseDEFAULT, vCaseProd + vCaseDEFAULT, vCaseProd, vInlineMe ) where #include "HsVersions.h" import CoreSyn +import CoreUtils ( mkInlineMe ) import MkCore ( mkWildCase ) import CoreUtils ( exprType ) import DataCon ( DataCon ) @@ -90,3 +91,7 @@ vCaseProd (vscrut, lscrut) vty lty vdc ldc sh_bndrs bndrs [(DataAlt ldc, sh_bndrs ++ lbndrs, lbody)]) where (vbndrs, lbndrs) = unzip bndrs + +vInlineMe :: VExpr -> VExpr +vInlineMe (vexpr, lexpr) = (mkInlineMe vexpr, mkInlineMe lexpr) + |