projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
376b25a
)
[project @ 2000-12-18 14:54:08 by simonpj]
author
simonpj
<unknown>
Mon, 18 Dec 2000 14:54:08 +0000
(14:54 +0000)
committer
simonpj
<unknown>
Mon, 18 Dec 2000 14:54:08 +0000
(14:54 +0000)
Fix error message
ghc/compiler/rename/RnExpr.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/rename/RnExpr.lhs
b/ghc/compiler/rename/RnExpr.lhs
index
009facd
..
40e3f9e
100644
(file)
--- a/
ghc/compiler/rename/RnExpr.lhs
+++ b/
ghc/compiler/rename/RnExpr.lhs
@@
-174,7
+174,7
@@
rnMatch match@(Match _ pats maybe_rhs_sig grhss)
tyvars_in_pats = extractPatsTyVars pats
forall_tyvars = filter (not . (`elemFM` name_env)) tyvars_in_sigs
doc_sig = text "a pattern type-signature"
- doc_pats = text "in a pattern match"
+ doc_pats = text "a pattern match"
in
bindNakedTyVarsFVRn doc_sig forall_tyvars $ \ sig_tyvars ->