X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FStaticFlags.hs;h=2d3b3ad9b223f61ff4b985c11855151aa6c28634;hb=ac97c15c33cb5658d2da35fd2a6768a4c0556361;hp=ffa15841ad7b1a0a66fbc518a4659893f071c067;hpb=740618f2b7d822f53528d271ccfb617c8ce84c55;p=ghc-hetmet.git

diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs
index ffa1584..2d3b3ad 100644
--- 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"