diff options
Diffstat (limited to 'compiler/vectorise/VectMonad.hs')
| -rw-r--r-- | compiler/vectorise/VectMonad.hs | 2 |
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 -> |