[commit: ghc] master: A little extra tracing (bf79c61)

[Simon Peyton Jones]

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

On branch  : master

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

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

commit bf79c614f434085813867e9d934bb4044fea1d41
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Aug 5 15:30:54 2011 +0100

    A little extra tracing

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

 compiler/rename/RnSource.lhs    |    1 +
 compiler/typecheck/TcSplice.lhs |    3 ++-
 2 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index edf69c3..3d73e4b 100644
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -133,6 +133,7 @@ rnSrcDecls group@(HsGroup { hs_valds   = val_decls,
          val_avails = map Avail val_binders 
        } ;
    (tcg_env, tcl_env) <- extendGlobalRdrEnvRn val_avails local_fix_env ;
+   traceRn (ptext (sLit "Val binders") <+> (ppr val_binders)) ;
    setEnvs (tcg_env, tcl_env) $ do {
 
    --  Now everything is in scope, as the remaining renaming assumes.
diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs
index 6cf2cc1..ec7d6dd 100644
--- a/compiler/typecheck/TcSplice.lhs
+++ b/compiler/typecheck/TcSplice.lhs
@@ -828,7 +828,8 @@ runMeta show_code run_and_convert expr
 	-- Compile and link it; might fail if linking fails
 	; hsc_env <- getTopEnv
 	; src_span <- getSrcSpanM
-	; either_hval <- tryM $ liftIO $
+	; traceTc "About to run (desugared)" (ppr ds_expr)
+        ; either_hval <- tryM $ liftIO $
 			 HscMain.hscCompileCoreExpr hsc_env src_span ds_expr
 	; case either_hval of {
 	    Left exn   -> failWithTc (mk_msg "compile and link" exn) ;