From 3370ed763b1b71326fdebf143b840dc023170aab Mon Sep 17 00:00:00 2001 From: simonpj Date: Fri, 10 Jun 2005 13:33:48 +0000 Subject: [PATCH] [project @ 2005-06-10 13:33:48 by simonpj] tcTrace wibble --- ghc/compiler/typecheck/TcRnMonad.lhs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/typecheck/TcRnMonad.lhs b/ghc/compiler/typecheck/TcRnMonad.lhs index 1023f56..ea8b69d 100644 --- a/ghc/compiler/typecheck/TcRnMonad.lhs +++ b/ghc/compiler/typecheck/TcRnMonad.lhs @@ -27,7 +27,7 @@ import InstEnv ( emptyInstEnv ) import VarSet ( emptyVarSet ) import VarEnv ( TidyEnv, emptyTidyEnv, emptyVarEnv ) import ErrUtils ( Message, Messages, emptyMessages, errorsFound, - mkWarnMsg, printErrorsAndWarnings, + mkWarnMsg, printErrorsAndWarnings, pprBagOfErrors, mkLocMessage, mkLongErrMsg ) import SrcLoc ( mkGeneralSrcSpan, isGoodSrcSpan, SrcSpan, Located(..) ) import NameEnv ( emptyNameEnv ) @@ -39,10 +39,9 @@ import UniqSupply ( UniqSupply, mkSplitUniqSupply, uniqFromSupply, splitUniqSupp import Unique ( Unique ) import DynFlags ( DynFlags(..), DynFlag(..), dopt, dopt_set, GhcMode ) import StaticFlags ( opt_PprStyle_Debug ) -import Bag ( snocBag, unionBags ) +import Bag ( snocBag, unionBags, unitBag ) import Panic ( showException ) -import Maybe ( isJust ) import IO ( stderr ) import DATA_IOREF ( newIORef, readIORef ) import EXCEPTION ( Exception ) @@ -432,6 +431,8 @@ addLongErrAt loc msg extra rdr_env <- getGlobalRdrEnv ; let { err = mkLongErrMsg loc (unQualInScope rdr_env) msg extra } ; (warns, errs) <- readMutVar errs_var ; + traceTc (ptext SLIT("Adding error:") <+> \ _ -> pprBagOfErrors (unitBag err)) ; + -- Ugh! traceTc is too specific; unitBag is horrible writeMutVar errs_var (warns, errs `snocBag` err) } addErrs :: [(SrcSpan,Message)] -> TcRn () -- 1.7.10.4