Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-new-flavor

http://hackage.haskell.org/trac/ghc/changeset/d86e6c011622bbf039b2eeba3c62c806e622f44c

>---------------------------------------------------------------

commit d86e6c011622bbf039b2eeba3c62c806e622f44c
Author: Dimitrios Vytiniotis <[email protected]>
Date:   Fri Mar 30 14:55:02 2012 +0200

    A little tracing.

>---------------------------------------------------------------

 compiler/typecheck/TcSimplify.lhs |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/compiler/typecheck/TcSimplify.lhs 
b/compiler/typecheck/TcSimplify.lhs
index af0c7e2..96790c6 100644
--- a/compiler/typecheck/TcSimplify.lhs
+++ b/compiler/typecheck/TcSimplify.lhs
@@ -698,9 +698,11 @@ simplifyCheck ctxt wanteds
 
        ; traceTc "simplifyCheck }" $ ptext (sLit "unsolved =") <+> ppr unsolved
 
+       ; traceTc "reportUnsolved {" empty
        -- See Note [Deferring coercion errors to runtime]
        ; runtimeCoercionErrors <- doptM Opt_DeferTypeErrors
        ; eb2 <- reportUnsolved runtimeCoercionErrors unsolved 
+       ; traceTc "reportUnsolved }" empty
        
        ; return (eb1 `unionBags` eb2) }
 \end{code}



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to