X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnTypes.lhs;h=0547824ddb97eb9cf9d88cd563f0f1bc41793e9f;hp=c9b232ffe0758d07d1f90a0cc980085edb716fbf;hb=4c8619081f01bd2b8186f9af716fb3ac269525fc;hpb=f1bc2f1b8f45a2397c1a5dfd32de0811227d5c93

diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs
index c9b232f..0547824 100644
--- 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)