projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-11-09 13:27:05 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
rename
/
RnTypes.lhs
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
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)
patSigErr ty
= (ptext SLIT("Illegal signature in pattern:") <+> ppr ty)