From: simonpj@microsoft.com <unknown>
Date: Sat, 20 Sep 2008 23:22:56 +0000 (+0000)
Subject: Wibble to ungrammatical error message
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=de29097709338f70a0356959dea4c5643f0a6fc7;p=ghc-hetmet.git

Wibble to ungrammatical error message
---

diff --git a/compiler/typecheck/TcExpr.lhs b/compiler/typecheck/TcExpr.lhs
index 6260b89..721c57c 100644
--- a/compiler/typecheck/TcExpr.lhs
+++ b/compiler/typecheck/TcExpr.lhs
@@ -1210,7 +1210,7 @@ badFieldsUpd rbinds
 naughtyRecordSel sel_id
   = ptext (sLit "Cannot use record selector") <+> quotes (ppr sel_id) <+> 
     ptext (sLit "as a function due to escaped type variables") $$ 
-    ptext (sLit "Probably fix: use pattern-matching syntax instead")
+    ptext (sLit "Probable fix: use pattern-matching syntax instead")
 
 notSelector field
   = hsep [quotes (ppr field), ptext (sLit "is not a record selector")]