From: simonpj@microsoft.com <unknown>
Date: Wed, 20 Aug 2008 12:07:28 +0000 (+0000)
Subject: Elaborate for-all message slightly
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=5e09d0886105fdfec4d7e8aaf2115b92ee18cfaa

Elaborate for-all message slightly
---

diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs
index a4c4afd..6c3567a 100644
--- a/compiler/rename/RnEnv.lhs
+++ b/compiler/rename/RnEnv.lhs
@@ -987,7 +987,8 @@ unknownNameErr rdr_name
 	 , extra ]
   where
     extra | rdr_name == forall_tv_RDR 
-	  = ptext (sLit "Perhaps you intended to use -XRankNTypes or similar flag")
+	  = vcat [ptext (sLit "Perhaps you intended to use -XRankNTypes or similar flag"),
+		  ptext (sLit "to enable explicit-forall syntax: forall <tvs>. <type>?")]
 	  | otherwise = empty
 
 unknownSubordinateErr :: SDoc -> RdrName -> SDoc