summaryrefslogtreecommitdiff
path: root/compiler/vectorise/VectMonad.hs
diff options
context:
space:
mode:
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>2009-03-06 12:36:45 +0000
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>2009-03-06 12:36:45 +0000
commitea145221cf910e20e30c0a9c47fed87be98f9621 (patch)
tree2651661b9cc256bd6154dd02f22e580fa00dccbb /compiler/vectorise/VectMonad.hs
parent28bb3c3c8c1467ca31db59f0b3d1a21df6607742 (diff)
downloadhaskell-ea145221cf910e20e30c0a9c47fed87be98f9621.tar.gz
Fix warning
Diffstat (limited to 'compiler/vectorise/VectMonad.hs')
-rw-r--r--compiler/vectorise/VectMonad.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs
index bc120cde5b..8fdfcdb999 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 ->