Use emptyPA in vectorisation

[ghc-hetmet.git] / compiler / vectorise / VectUtils.hs

diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs
index 24a12ea..0df1672 100644 (file)
--- a/compiler/vectorise/VectUtils.hs
+++ b/compiler/vectorise/VectUtils.hs
@@ -3,7 +3,7 @@ module VectUtils (
   splitClosureTy,
   mkPADictType, mkPArrayType,
   paDictArgType, paDictOfType,
-  paMethod, lengthPA, replicatePA,
+  paMethod, lengthPA, replicatePA, emptyPA,
   lookupPArrayFamInst,
   hoistExpr, takeHoisted
 ) where
@@ -123,6 +123,9 @@ replicatePA :: CoreExpr -> CoreExpr -> VM CoreExpr
 replicatePA len x = liftM (`mkApps` [len,x])
                           (paMethod replicatePAVar (exprType x))
 
+emptyPA :: Type -> VM CoreExpr
+emptyPA = paMethod emptyPAVar
+
 lookupPArrayFamInst :: Type -> VM (TyCon, [Type])
 lookupPArrayFamInst ty = builtin parrayTyCon >>= (`lookupFamInst` [ty])