From 63b9e02a40a1c30531bd22b3bc6a5be18943476c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 2 Aug 1997 21:43:35 +0000
Subject: [PATCH] [project @ 1997-08-02 21:43:35 by sof] Improved err message
---
ghc/compiler/typecheck/TcExpr.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index ba4a24bdcda6..73bede1aabdc 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
--
GitLab