X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDynFlags.hs;h=a0882f26f72589ab0ca630748ab828ffafaa7b96;hb=bec55bc5799e7579391a257f2e489b8e427d1aa8;hp=605474faee2bcecfd9cbc0990db281eeb21403ee;hpb=60a049fa75ec3b4a1d348c235a1fc399739165c0;p=ghc-hetmet.git

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 605474f..a0882f2 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1026,6 +1026,7 @@ dynamic_flags = [
 
 	-- For now, allow -X flags with -f; ToDo: report this as deprecated
   ,  ( "f",		PrefixPred (isFlag xFlags) (\f ->  setDynFlag (getFlag xFlags f)) )
+  ,  ( "f", 		PrefixPred (isNoFlag xFlags) (\f -> unSetDynFlag (getNoFlag xFlags f)) )
 
 	-- the rest of the -X* and -Xno-* flags
   ,  ( "X",		PrefixPred (isFlag xFlags)   (\f -> setDynFlag   (getFlag xFlags f)) )