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:
f1bc2f1
)
[project @ 2004-11-09 13:27:05 by simonpj]
author
simonpj
<unknown>
Tue, 9 Nov 2004 13:27:05 +0000
(13:27 +0000)
committer
simonpj
<unknown>
Tue, 9 Nov 2004 13:27:05 +0000
(13:27 +0000)
Refine warning slightly
ghc/compiler/rename/RnTypes.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/rename/RnTypes.lhs
b/ghc/compiler/rename/RnTypes.lhs
index
c9b232f
..
0547824
100644
(file)
--- a/
ghc/compiler/rename/RnTypes.lhs
+++ b/
ghc/compiler/rename/RnTypes.lhs
@@
-557,7
+557,8
@@
sectionPrecErr op arg_op section
nest 4 (ptext SLIT("in the section:") <+> quotes (ppr section))]
infixTyConWarn op
- = ftext FSLIT("Accepting non-standard infix type constructor") <+> quotes (ppr op)
+ = vcat [ftext FSLIT("Accepting non-standard infix type constructor") <+> quotes (ppr op),
+ ftext FSLIT("Use -fglasgow-exts to avoid this warning"))
patSigErr ty
= (ptext SLIT("Illegal signature in pattern:") <+> ppr ty)