From 2d2f0570c0733e7f5bf24f5e79f408e66cf6bdff Mon Sep 17 00:00:00 2001 From: simonpj Date: Mon, 30 Apr 2001 08:26:54 +0000 Subject: [PATCH] [project @ 2001-04-30 08:26:54 by simonpj] Improve error message --- ghc/compiler/hsSyn/HsExpr.lhs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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} -- 1.7.10.4