[commit: ghc] master: Make -ddump-tc-trace imply -ddump-cs-trace (1548d83)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/1548d83e9b18fe67e97f04febbdf4ef2fbaaf759/ghc

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

commit 1548d83e9b18fe67e97f04febbdf4ef2fbaaf759
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Nov 5 12:17:27 2013 +0000

    Make -ddump-tc-trace imply -ddump-cs-trace


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

1548d83e9b18fe67e97f04febbdf4ef2fbaaf759
 compiler/main/DynFlags.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 522e761..34d5a47 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -2317,7 +2317,8 @@ dynamic_flags = [
   , Flag "ddump-rn-trace"          (setDumpFlag Opt_D_dump_rn_trace)
   , Flag "ddump-if-trace"          (setDumpFlag Opt_D_dump_if_trace)
   , Flag "ddump-cs-trace"          (setDumpFlag Opt_D_dump_cs_trace)
-  , Flag "ddump-tc-trace"          (setDumpFlag Opt_D_dump_tc_trace)
+  , Flag "ddump-tc-trace"          (NoArg (do { setDumpFlag' Opt_D_dump_tc_trace
+                                              ; setDumpFlag' Opt_D_dump_cs_trace }))
   , Flag "ddump-vt-trace"          (setDumpFlag Opt_D_dump_vt_trace)
   , Flag "ddump-splices"           (setDumpFlag Opt_D_dump_splices)
   , Flag "ddump-rn-stats"          (setDumpFlag Opt_D_dump_rn_stats)
@@ -3248,7 +3249,6 @@ forceRecompile = do dfs <- liftEwM getCmdLineState
                     when (force_recomp dfs) (setGeneralFlag Opt_ForceRecomp)
         where
           force_recomp dfs = isOneShot (ghcMode dfs)
-
 setVerboseCore2Core :: DynP ()
 setVerboseCore2Core = do setDumpFlag' Opt_D_verbose_core2core
                          upd (\dfs -> dfs { shouldDumpSimplPhase = Nothing })