diff options
author | Greg Weber <greg@gregweber.info> | 2014-11-19 16:43:26 -0600 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2014-11-19 17:03:06 -0600 |
commit | 33c029faef3b5e486def8f3a7c888dfa9f3d8cca (patch) | |
tree | 54528d142c7cd91354d00199466518ce320b65e6 /compiler/typecheck/TcRnDriver.lhs | |
parent | 53a4742d037da2bfd00d1d34a8ea0d49d4cdb490 (diff) | |
download | haskell-33c029faef3b5e486def8f3a7c888dfa9f3d8cca.tar.gz |
make TcRnMonad.lhs respect -ddump-to-file
Summary: allows things such as: -ddump-to-file -ddump-splices
Test Plan:
compile with flags -ddump-to-file -ddump-splices
verify that it does output an extra file
Try out other flags.
I noticed that with -ddump-tc there is some output going to file and some to stdout.
Reviewers: hvr, austin
Reviewed By: austin
Subscribers: simonpj, thomie, carter
Differential Revision: https://phabricator.haskell.org/D460
GHC Trac Issues: #9126
Diffstat (limited to 'compiler/typecheck/TcRnDriver.lhs')
-rw-r--r-- | compiler/typecheck/TcRnDriver.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs index 893e0290da..32113bb976 100644 --- a/compiler/typecheck/TcRnDriver.lhs +++ b/compiler/typecheck/TcRnDriver.lhs @@ -1471,7 +1471,7 @@ tcRnStmt hsc_env rdr_stmt -------------------------------------------------- -} - dumpOptTcRn Opt_D_dump_tc + traceOptTcRn Opt_D_dump_tc (vcat [text "Bound Ids" <+> pprWithCommas ppr global_ids, text "Typechecked expr" <+> ppr zonked_expr]) ; @@ -1994,7 +1994,7 @@ loadUnqualIfaces hsc_env ictxt \begin{code} rnDump :: SDoc -> TcRn () -- Dump, with a banner, if -ddump-rn -rnDump doc = do { dumpOptTcRn Opt_D_dump_rn (mkDumpDoc "Renamer" doc) } +rnDump doc = do { traceOptTcRn Opt_D_dump_rn (mkDumpDoc "Renamer" doc) } tcDump :: TcGblEnv -> TcRn () tcDump env @@ -2005,7 +2005,7 @@ tcDump env (printForUserTcRn short_dump) ; -- Dump bindings if -ddump-tc - dumpOptTcRn Opt_D_dump_tc (mkDumpDoc "Typechecker" full_dump) + traceOptTcRn Opt_D_dump_tc (mkDumpDoc "Typechecker" full_dump) } where short_dump = pprTcGblEnv env |