X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fmain%2FDynFlags.hs;h=3e9ca8f90fe9d7ca57773bcfb51468022a4baa04;hb=6e2021202c3eec0c95a9d0b7c355559f2630d380;hp=d0fce4af97fed40a93e7252d59c25913c5307b10;hpb=89a8960b2a270973743a2dfe4dee9fb2b25e870a;p=ghc-hetmet.git

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index d0fce4a..3e9ca8f 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -102,6 +102,7 @@ data DynFlag
    | Opt_D_dump_flatC
    | Opt_D_dump_foreign
    | Opt_D_dump_inlinings
+   | Opt_D_dump_rule_firings
    | Opt_D_dump_occur_anal
    | Opt_D_dump_parsed
    | Opt_D_dump_rn
@@ -155,6 +156,7 @@ data DynFlag
    | Opt_WarnDeprecations
    | Opt_WarnDodgyImports
    | Opt_WarnOrphans
+   | Opt_WarnTabs
 
    -- language opts
    | Opt_AllowOverlappingInstances
@@ -932,6 +934,7 @@ dynamic_flags = [
   ,  ( "ddump-flatC",        	 setDumpFlag Opt_D_dump_flatC)
   ,  ( "ddump-foreign",      	 setDumpFlag Opt_D_dump_foreign)
   ,  ( "ddump-inlinings",    	 setDumpFlag Opt_D_dump_inlinings)
+  ,  ( "ddump-rule-firings",   	 setDumpFlag Opt_D_dump_rule_firings)
   ,  ( "ddump-occur-anal",   	 setDumpFlag Opt_D_dump_occur_anal)
   ,  ( "ddump-parsed",       	 setDumpFlag Opt_D_dump_parsed)
   ,  ( "ddump-rn",           	 setDumpFlag Opt_D_dump_rn)
@@ -1030,6 +1033,7 @@ fFlags = [
   ( "warn-unused-matches",       	Opt_WarnUnusedMatches ),
   ( "warn-deprecations",         	Opt_WarnDeprecations ),
   ( "warn-orphans",	         	Opt_WarnOrphans ),
+  ( "warn-tabs",	         	Opt_WarnTabs ),
   ( "fi",				Opt_FFI ),  -- support `-ffi'...
   ( "ffi",				Opt_FFI ),  -- ...and also `-fffi'
   ( "arrows",				Opt_Arrows ), -- arrow syntax