From: sof <unknown>
Date: Sat, 2 Aug 1997 21:43:35 +0000 (+0000)
Subject: [project @ 1997-08-02 21:43:35 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~161
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=63b9e02a40a1c30531bd22b3bc6a5be18943476c;p=ghc-hetmet.git

[project @ 1997-08-02 21:43:35 by sof]
Improved err message
---

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index ba4a24b..73bede1 100644
--- a/ghc/compiler/typecheck/TcExpr.lhs
+++ b/ghc/compiler/typecheck/TcExpr.lhs
@@ -1032,7 +1032,7 @@ funAppCtxt fun arg_no arg sty
 	 4 (ppr sty arg)
 
 stmtCtxt ListComp stmt sty
-  = hang (ptext SLIT("In a list-comprehension qualifer:")) 
+  = hang (ptext SLIT("In a pattern guard/list-comprehension qualifier:")) 
          4 (ppr sty stmt)
 
 stmtCtxt DoStmt stmt sty