From: Ian Lynagh <igloo@earth.li>
Date: Mon, 16 Jun 2008 21:34:38 +0000 (+0000)
Subject: Suggest -XRelaxedPolyRec rather than -fglasgow-exts in an error message
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=cd6658d04b5451d9b7c5c3b758bff8a0b5a63e7a

Suggest -XRelaxedPolyRec rather than -fglasgow-exts in an error message
---

diff --git a/compiler/typecheck/TcUnify.lhs b/compiler/typecheck/TcUnify.lhs
index d7282b6..1aa0bf6 100644
--- a/compiler/typecheck/TcUnify.lhs
+++ b/compiler/typecheck/TcUnify.lhs
@@ -996,7 +996,7 @@ unifyTheta :: TcThetaType -> TcThetaType -> TcM [CoercionI]
 unifyTheta theta1 theta2
   = do  { checkTc (equalLength theta1 theta2)
                   (vcat [ptext (sLit "Contexts differ in length"),
-                         nest 2 $ parens $ ptext (sLit "Use -fglasgow-exts to allow this")])
+                         nest 2 $ parens $ ptext (sLit "Use -XRelaxedPolyRec to allow this")])
         ; uList unifyPred theta1 theta2
         }