import HsSyn
import TcRnMonad
-import TcGadt
import Inst
import TcEnv
import TcPat
import Outputable
import Util
import SrcLoc
+import FastString
import Control.Monad
\end{code}
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}