From 1c4593fd4e45a1ea5a32551408866e73840251f1 Mon Sep 17 00:00:00 2001 From: "keller@cse.unsw.edu.au" Date: Wed, 2 Feb 2011 04:08:26 +0000 Subject: [PATCH] Removed minor bug --- compiler/vectorise/Vectorise/Exp.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4