From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Wed, 21 Nov 2007 05:31:02 +0000 (+0000)
Subject: Vectorise polyexprs with notes
X-Git-Tag: 2008-05-28~1086
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=772810755a8519db4585f54a27dbbdd8b9127419

Vectorise polyexprs with notes
---

diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index fac66ec..d85ef6a 100644
--- a/compiler/vectorise/Vectorise.hs
+++ b/compiler/vectorise/Vectorise.hs
@@ -216,6 +216,8 @@ vectLiteral lit
       return (Lit lit, lexpr)
 
 vectPolyExpr :: CoreExprWithFVs -> VM VExpr
+vectPolyExpr (_, AnnNote note expr)
+  = liftM (vNote note) $ vectPolyExpr expr
 vectPolyExpr expr
   = polyAbstract tvs $ \abstract ->
     do