diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-03-06 12:36:45 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-03-06 12:36:45 +0000 |
| commit | ea145221cf910e20e30c0a9c47fed87be98f9621 (patch) | |
| tree | 2651661b9cc256bd6154dd02f22e580fa00dccbb /compiler/vectorise/Vectorise.hs | |
| parent | 28bb3c3c8c1467ca31db59f0b3d1a21df6607742 (diff) | |
| download | haskell-ea145221cf910e20e30c0a9c47fed87be98f9621.tar.gz | |
Fix warning
Diffstat (limited to 'compiler/vectorise/Vectorise.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index bee160c467..68b796f82e 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -298,7 +298,7 @@ vectScalarLam args body | otherwise = False is_scalar vs (Var v) = v `elemVarSet` vs - is_scalar _ e@(Lit l) = is_scalar_ty $ exprType e + is_scalar _ e@(Lit _) = is_scalar_ty $ exprType e is_scalar vs (App e1 e2) = is_scalar vs e1 && is_scalar vs e2 is_scalar _ _ = False |