From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Wed, 1 Aug 2007 04:56:56 +0000 (+0000)
Subject: Fix calls to replicatePA
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6ed5e6a3e9fbbd08f67a6136544aac1219680f5b

Fix calls to replicatePA
---

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