X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Ftypecheck%2FTcMatches.lhs;h=5826eb9f1f54fa60f066ab7383a33fc40df359e0;hb=30c122df62ec75f9ed7f392f24c2925675bf1d06;hp=2f8fbcdac5161f1f4d5841daf5155568b7027fd2;hpb=4226903dd2bd0a08e1b7e10547a57588e8371e78;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcMatches.lhs b/compiler/typecheck/TcMatches.lhs
index 2f8fbcd..5826eb9 100644
--- a/compiler/typecheck/TcMatches.lhs
+++ b/compiler/typecheck/TcMatches.lhs
@@ -25,7 +25,6 @@ import {-# SOURCE #-}	TcExpr( tcSyntaxOp, tcInferRho, tcMonoExpr, tcPolyExpr )
 
 import HsSyn
 import TcRnMonad
-import TcGadt
 import Inst
 import TcEnv
 import TcPat
@@ -43,6 +42,7 @@ import TysPrim
 import Outputable
 import Util
 import SrcLoc
+import FastString
 
 import Control.Monad
 \end{code}
@@ -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}