From faf67664d305e6397db124c35c4f246804709991 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Mon, 24 Dec 2007 12:22:17 +0000 Subject: [PATCH] When complaining about non-rigid context, give suggestion of adding a signature --- compiler/typecheck/TcPat.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4