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

diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs
index 8035211..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