From 6ed5e6a3e9fbbd08f67a6136544aac1219680f5b Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Wed, 1 Aug 2007 04:56:56 +0000 Subject: [PATCH] Fix calls to replicatePA --- compiler/vectorise/Vectorise.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 5734ae1..7a29a7b 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -158,7 +158,7 @@ vectVar lc v Local (vv,lv) -> return (Var vv, Var lv) Global vv -> do let vexpr = Var vv - lexpr <- replicatePA vexpr (Var lc) + lexpr <- replicatePA (Var lc) vexpr return (vexpr, lexpr) vectPolyVar :: Var -> Var -> [Type] -> VM VExpr @@ -171,13 +171,13 @@ vectPolyVar lc v tys (polyApply (Var lv) vtys) Global poly -> do vexpr <- polyApply (Var poly) vtys - lexpr <- replicatePA vexpr (Var lc) + lexpr <- replicatePA (Var lc) vexpr return (vexpr, lexpr) vectLiteral :: Var -> Literal -> VM VExpr vectLiteral lc lit = do - lexpr <- replicatePA (Lit lit) (Var lc) + lexpr <- replicatePA (Var lc) (Lit lit) return (Lit lit, lexpr) vectPolyExpr :: Var -> CoreExprWithFVs -> VM VExpr -- 1.7.10.4