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 <[email protected]> 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) ; _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
