diff options
| author | keller@cse.unsw.edu.au <unknown> | 2011-02-02 04:08:26 +0000 |
|---|---|---|
| committer | keller@cse.unsw.edu.au <unknown> | 2011-02-02 04:08:26 +0000 |
| commit | 1c4593fd4e45a1ea5a32551408866e73840251f1 (patch) | |
| tree | 73dbe3901f7358b7027ceb790cbe38fcd0525497 | |
| parent | 52667c2f5ed341d14c3059bfc122ff45afd2e250 (diff) | |
| download | haskell-1c4593fd4e45a1ea5a32551408866e73840251f1.tar.gz | |
Removed minor bug
| -rw-r--r-- | compiler/vectorise/Vectorise/Exp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs index c3793dc762..d792fd6819 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) |