projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3f8685f
)
[project @ 2005-01-06 09:39:42 by simonpj]
author
simonpj
<unknown>
Thu, 6 Jan 2005 09:39:42 +0000
(09:39 +0000)
committer
simonpj
<unknown>
Thu, 6 Jan 2005 09:39:42 +0000
(09:39 +0000)
Remove null where
ghc/compiler/typecheck/TcMatches.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/typecheck/TcMatches.lhs
b/ghc/compiler/typecheck/TcMatches.lhs
index
2819211
..
8f4d38f
100644
(file)
--- a/
ghc/compiler/typecheck/TcMatches.lhs
+++ b/
ghc/compiler/typecheck/TcMatches.lhs
@@
-285,7
+285,6
@@
tcMatchPats pats tys body_ty thing_inside
= do { (pats', ex_tvs, res) <- tcPats LamPat pats tys thing_inside
; tcCheckExistentialPat pats' ex_tvs tys body_ty
; returnM (pats', res) }
- where
tcCheckExistentialPat :: [LPat TcId] -- Patterns (just for error message)
-> [TcTyVar] -- Existentially quantified tyvars bound by pattern