X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectMonad.hs;h=2e100a9223594202213799952bdf6fb645c76d52;hp=ecbc7d970057c2882ff9c63db7027312aa8019d2;hb=cc67e20f5c6355919b54f82c2620515fa28269a8;hpb=c1572a8968e1a0fac2c70e0172d5f304d560b2f3

diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs
index ecbc7d9..2e100a9 100644
--- a/compiler/vectorise/VectMonad.hs
+++ b/compiler/vectorise/VectMonad.hs
@@ -336,7 +336,7 @@ newLocalVar fs ty
       return $ mkSysLocal fs u ty
 
 newDummyVar :: Type -> VM Var
-newDummyVar = newLocalVar (fsLit "ds")
+newDummyVar = newLocalVar (fsLit "vv")
 
 newTyVar :: FastString -> Kind -> VM Var
 newTyVar fs k