X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcPat.lhs;h=f9e7127e61e97b7db41897fd3eb5eb3c4d40c6a5;hb=faf67664d305e6397db124c35c4f246804709991;hp=0d62b6bf81b59d432382fb5ece549dc04e7cf367;hpb=219f900f4e518e8158807cdda6fdec8331f701f0;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcPat.lhs b/compiler/typecheck/TcPat.lhs
index 0d62b6b..f9e7127 100644
--- a/compiler/typecheck/TcPat.lhs
+++ b/compiler/typecheck/TcPat.lhs
@@ -1107,11 +1107,11 @@ lazyPatErr pat tvs
 
 nonRigidMatch con
   =  hang (ptext SLIT("GADT pattern match in non-rigid context for") <+> quotes (ppr con))
-	2 (ptext SLIT("Tell GHC HQ if you'd like this to unify the context"))
+	2 (ptext SLIT("Solution: add a type signature"))
 
 nonRigidResult res_ty
   =  hang (ptext SLIT("GADT pattern match with non-rigid result type") <+> quotes (ppr res_ty))
-	2 (ptext SLIT("Tell GHC HQ if you'd like this to unify the context"))
+	2 (ptext SLIT("Solution: add a type signature"))
 
 inaccessibleAlt msg
   = hang (ptext SLIT("Inaccessible case alternative:")) 2 msg