Removed minor bug

[ghc-hetmet.git] / compiler / vectorise / Vectorise / Exp.hs

diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs
index c3793dc..d792fd6 100644 (file)
--- 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)