From ea145221cf910e20e30c0a9c47fed87be98f9621 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Fri, 6 Mar 2009 12:36:45 +0000 Subject: [PATCH] Fix warning --- compiler/vectorise/VectMonad.hs | 2 +- compiler/vectorise/Vectorise.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index bc120cd..8fdfcdb 100644 --- a/compiler/vectorise/VectMonad.hs +++ b/compiler/vectorise/VectMonad.hs @@ -252,7 +252,7 @@ onlyIfV b p = ensureV b >> p traceEnsureV :: String -> SDoc -> Bool -> VM () traceEnsureV s d False = traceNoV s d -traceEnsureV s d True = return () +traceEnsureV _ _ True = return () tryV :: VM a -> VM (Maybe a) tryV (VM p) = VM $ \bi genv lenv -> diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index bee160c..68b796f 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 -- 1.7.10.4