From: Ian Lynagh <igloo@earth.li>
Date: Wed, 6 Oct 2010 12:44:13 +0000 (+0000)
Subject: Deprecate -fglasgow-exts
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=781fd68db0abe2ebca2481a149442ee3ff8d99b7;p=ghc-hetmet.git

Deprecate -fglasgow-exts
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index f5cfe74..056f367 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1356,8 +1356,8 @@ dynamic_flags = [
                                        setTarget HscNothing))
   , Flag "fbyte-code"       (NoArg (setTarget HscInterpreted))
   , Flag "fobject-code"     (NoArg (setTarget defaultHscTarget))
-  , Flag "fglasgow-exts"    (NoArg enableGlasgowExts)
-  , Flag "fno-glasgow-exts" (NoArg disableGlasgowExts)
+  , Flag "fglasgow-exts"    (NoArg (enableGlasgowExts >> deprecate "Use individual extensions instead"))
+  , Flag "fno-glasgow-exts" (NoArg (disableGlasgowExts >> deprecate "Use individual extensions instead"))
  ]
  ++ map (mkFlag True  "f"    setDynFlag  ) fFlags
  ++ map (mkFlag False "fno-" unSetDynFlag) fFlags