[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 (file)
--- 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