[commit: ghc] wip/new-flatten-skolems-Aug14: Print traceTc stuff in dump-style (ec85cf2)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/new-flatten-skolems-Aug14
Link       : http://ghc.haskell.org/trac/ghc/changeset/ec85cf2add0e351ec0ed445d6f291360f476114c/ghc

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

commit ec85cf2add0e351ec0ed445d6f291360f476114c
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Sep 30 21:31:56 2014 +0100

    Print traceTc stuff in dump-style


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

ec85cf2add0e351ec0ed445d6f291360f476114c
 compiler/typecheck/TcRnMonad.lhs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs
index 7243749..0c4bf0a 100644
--- a/compiler/typecheck/TcRnMonad.lhs
+++ b/compiler/typecheck/TcRnMonad.lhs
@@ -499,9 +499,10 @@ traceOptTcRn flag doc = whenDOptM flag $ do
                         ; dumpTcRn real_doc }
 
 dumpTcRn :: SDoc -> TcRn ()
-dumpTcRn doc = do { rdr_env <- getGlobalRdrEnv
-                  ; dflags <- getDynFlags
-                  ; liftIO (printInfoForUser dflags (mkPrintUnqualified dflags rdr_env) doc) }
+dumpTcRn doc = do { dflags <- getDynFlags
+                  ; liftIO (debugTraceMsg dflags 0 doc) }
+--                  ; rdr_env <- getGlobalRdrEnv
+--                  ; liftIO (printInfoForUser dflags (mkPrintUnqualified dflags rdr_env) doc) }
 
 debugDumpTcRn :: SDoc -> TcRn ()
 debugDumpTcRn doc | opt_NoDebugOutput = return ()