[project @ 2001-05-10 09:00:28 by simonmar]

typo in error msg, pointed out by Alastair Reid.

diff --git a/ghc/compiler/hsSyn/HsExpr.lhs b/ghc/compiler/hsSyn/HsExpr.lhs
index c5cd5b5..cf7a863 100644 (file)
--- a/ghc/compiler/hsSyn/HsExpr.lhs
+++ b/ghc/compiler/hsSyn/HsExpr.lhs
@@ -686,5 +686,5 @@ 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 ListComp     = ptext SLIT("In a 'list comprehension' pattern binding")
 \end{code}