From: keller@cse.unsw.edu.au <unknown>
Date: Wed, 2 Feb 2011 04:08:26 +0000 (+0000)
Subject: Removed minor bug
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1c4593fd4e45a1ea5a32551408866e73840251f1;hp=52667c2f5ed341d14c3059bfc122ff45afd2e250

Removed minor bug
---

diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs
index c3793dc..d792fd6 100644
--- a/compiler/vectorise/Vectorise/Exp.hs
+++ b/compiler/vectorise/Vectorise/Exp.hs
@@ -244,7 +244,7 @@ vectScalarLam args body
     is_scalar vs e@(Case eC eId ty alts)  
                              = let vs' = extendVarSet vs eId
 	                           in -- pprTrace "is_scalar  Case" (ppr e) $ 
-	                              cantbe_parr_expr e 
+	                              cantbe_parr_expr e && 
                                   is_prim_ty ty &&
                                   is_scalar vs' eC   &&
                                   (all (is_scalar_alt vs') alts)