From: simonpj <unknown>
Date: Mon, 30 Apr 2001 08:26:54 +0000 (+0000)
Subject: [project @ 2001-04-30 08:26:54 by simonpj]
X-Git-Tag: Approximately_9120_patches~2070
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2d2f0570c0733e7f5bf24f5e79f408e66cf6bdff;p=ghc-hetmet.git

[project @ 2001-04-30 08:26:54 by simonpj]
Improve error message
---

diff --git a/ghc/compiler/hsSyn/HsExpr.lhs b/ghc/compiler/hsSyn/HsExpr.lhs
index a2b703f..9400aef 100644
--- a/ghc/compiler/hsSyn/HsExpr.lhs
+++ b/ghc/compiler/hsSyn/HsExpr.lhs
@@ -679,11 +679,11 @@ matchSeparator RecUpd       = panic "When is this used?"
 \end{code}
 
 \begin{code}
-pprMatchContext (FunRhs fun) = ptext SLIT("in the definition of function") <+> quotes (ppr fun)
-pprMatchContext CaseAlt	     = ptext SLIT("in a group of case alternatives beginning")
-pprMatchContext RecUpd	     = ptext SLIT("in a record-update construct")
-pprMatchContext PatBindRhs   = ptext SLIT("in a pattern binding")
-pprMatchContext LambdaExpr   = ptext SLIT("in a lambda abstraction")
-pprMatchContext DoExpr       = ptext SLIT("in a `do' expression pattern binding")
-pprMatchContext ListComp     = ptext SLIT("in a `list comprension' pattern binding")
+pprMatchContext (FunRhs fun) = ptext SLIT("In the definition of") <+> quotes (ppr fun)
+pprMatchContext CaseAlt	     = ptext SLIT("In a group of case alternatives beginning")
+pprMatchContext RecUpd	     = ptext SLIT("In a record-update construct")
+pprMatchContext PatBindRhs   = ptext SLIT("In a pattern binding")
+pprMatchContext LambdaExpr   = ptext SLIT("In a lambda abstraction")
+pprMatchContext DoExpr       = ptext SLIT("In a 'do' expression pattern binding")
+pprMatchContext ListComp     = ptext SLIT("In a 'list comprension' pattern binding")
 \end{code}