projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added a pragma {-# NOVECTORISE f #-} that suppresses vectorisation of toplevel variab...
[ghc-hetmet.git]
/
compiler
/
deSugar
/
Check.lhs
diff --git
a/compiler/deSugar/Check.lhs
b/compiler/deSugar/Check.lhs
index
d9aefbe
..
59c102f
100644
(file)
--- a/
compiler/deSugar/Check.lhs
+++ b/
compiler/deSugar/Check.lhs
@@
-644,7
+644,7
@@
might_fail_pat (ConPatOut { pat_args = ps }) = any might_fail_lpat (hsConPatArgs
-- Finally the ones that are sure to succeed, or which are covered by the checking algorithm
might_fail_pat (LazyPat _) = False -- Always succeeds
-- Finally the ones that are sure to succeed, or which are covered by the checking algorithm
might_fail_pat (LazyPat _) = False -- Always succeeds
-might_fail_pat _ = False -- VarPat, WildPat, LitPat, NPat, TypePat
+might_fail_pat _ = False -- VarPat, WildPat, LitPat, NPat
--------------
might_fail_lpat :: LPat Id -> Bool
--------------
might_fail_lpat :: LPat Id -> Bool