X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FdeSugar%2FMatch.lhs;h=282ba80464af9e09ae766438ce3fc8c651cbe06b;hb=16e4ce4c0c02650082f2e11982017c903c549ad5;hp=3982d4cd28faa29e510387b7614a603dfeba54ab;hpb=fa9c9782a4e66d7af52f4e1ef8ddf2445741dd44;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Match.lhs b/ghc/compiler/deSugar/Match.lhs
index 3982d4c..282ba80 100644
--- a/ghc/compiler/deSugar/Match.lhs
+++ b/ghc/compiler/deSugar/Match.lhs
@@ -114,7 +114,7 @@ pp_context NoMatchContext msg rest_of_msg_fun
 
 pp_context (DsMatchContext kind pats loc) msg rest_of_msg_fun
   = (loc, vcat [ptext SLIT("Pattern match(es)") <+> msg,
-	        sep [ppr_match <> char ':', nest 4 (rest_of_msg_fun pref)]])
+	        sep [ptext SLIT("In") <+> ppr_match <> char ':', nest 4 (rest_of_msg_fun pref)]])
   where
     (ppr_match, pref)
 	= case kind of