X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnTypes.lhs;h=0e047fe54ea7ee81adbc13971e403056889d26b3;hb=cc45450cbe5031f9f90fcc44932a9ff1dd36efd2;hp=7a0948ebada183ced735a7af24a33dfcbc4bbf35;hpb=1bb3a4f7ea0b4005adb5d1a582a3796d152bc33e;p=ghc-hetmet.git

diff --git a/compiler/rename/RnTypes.lhs b/compiler/rename/RnTypes.lhs
index 7a0948e..0e047fe 100644
--- a/compiler/rename/RnTypes.lhs
+++ b/compiler/rename/RnTypes.lhs
@@ -538,7 +538,7 @@ opTyErr op ty@(HsOpTy ty1 _ _)
 	 2 extra
   where
     extra | op == dot_tv_RDR && forall_head ty1
-	  = ptext (sLit "Perhaps you intended to use -XRankNTypes or similar flag")
+	  = perhapsForallMsg
 	  | otherwise 
 	  = ptext (sLit "Use -XTypeOperators to allow operators in types")