X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcMatches.lhs;h=caab44ae2a515288130d8f06186fd69860f6183a;hp=2f8fbcdac5161f1f4d5841daf5155568b7027fd2;hb=210ca9c013a9cd193a78c1590e3f2ec4041f4858;hpb=6febb616f1ff46942434e9df39c6e4977b07cc6f

diff --git a/compiler/typecheck/TcMatches.lhs b/compiler/typecheck/TcMatches.lhs
index 2f8fbcd..caab44a 100644
--- a/compiler/typecheck/TcMatches.lhs
+++ b/compiler/typecheck/TcMatches.lhs
@@ -599,6 +599,6 @@ checkArgs fun other = panic "TcPat.checkArgs"	-- Matches always non-empty
 matchCtxt ctxt match  = hang (ptext SLIT("In") <+> pprMatchContext ctxt <> colon) 
 			   4 (pprMatch ctxt match)
 
-stmtCtxt ctxt stmt = hang (ptext SLIT("In") <+> pprStmtContext ctxt <> colon)
+stmtCtxt ctxt stmt = hang (ptext SLIT("In a stmt of") <+> pprStmtContext ctxt <> colon)
 		  	4 (ppr stmt)
 \end{code}