New flag -dsuppress-coercions to avoid printing coercions in Core dumps

[ghc-hetmet.git] / compiler / main / StaticFlags.hs

diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs
index ffa1584..2d3b3ad 100644 (file)
--- a/compiler/main/StaticFlags.hs
+++ b/compiler/main/StaticFlags.hs
@@ -22,6 +22,7 @@ module StaticFlags (
        -- Output style options
        opt_PprUserLength,
        opt_SuppressUniques,
+        opt_SuppressCoercions,
        opt_PprStyle_Debug,
         opt_NoDebugOutput,
 
@@ -182,6 +183,8 @@ opt_IgnoreDotGhci           = lookUp (fsLit "-ignore-dot-ghci")
 -- debugging opts
 opt_SuppressUniques :: Bool
 opt_SuppressUniques            = lookUp  (fsLit "-dsuppress-uniques")
+opt_SuppressCoercions :: Bool
+opt_SuppressCoercions           = lookUp  (fsLit "-dsuppress-coercions")
 opt_PprStyle_Debug  :: Bool
 opt_PprStyle_Debug             = lookUp  (fsLit "-dppr-debug")
 opt_PprUserLength   :: Int
@@ -406,8 +409,8 @@ way_details =
        , "-optc-DPROFILING" ],
 
     Way WayEventLog "l" True "RTS Event Logging"
-       [ "-DEVENTLOG"
-       , "-optc-DEVENTLOG" ],
+       [ "-DTRACING"
+       , "-optc-DTRACING" ],
 
     Way WayTicky "t" True "Ticky-ticky Profiling"  
        [ "-DTICKY_TICKY"