From: simonpj@microsoft.com <unknown>
Date: Wed, 13 Aug 2008 09:45:06 +0000 (+0000)
Subject: Improve error message for deprecated flags (Trac #2513)
X-Git-Tag: 2008-09-12~201
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=027bfeb550029829bf94e4e78d23fad1638e2756

Improve error message for deprecated flags (Trac #2513)
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index cf17155..2c8f5da 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1464,9 +1464,11 @@ mkFlag turnOn flagPrefix f (name, dynflag, deprecated)
     = Flag (flagPrefix ++ name) (NoArg (f dynflag)) (deprecated turnOn)
 
 deprecatedForLanguage :: String -> Bool -> Deprecated
-deprecatedForLanguage lang turnOn =
-    Deprecated ("Use the " ++ prefix ++ lang ++ " language instead")
-    where prefix = if turnOn then "" else "No"
+deprecatedForLanguage lang turn_on
+    = Deprecated ("use -X"  ++ flag ++ " or pragma {-# LANGUAGE " ++ flag ++ "#-} instead")
+    where 
+      flag | turn_on    = lang
+           | otherwise = "No"++lang
 
 -- | These @-f\<blah\>@ flags can all be reversed with @-fno-\<blah\>@
 fFlags :: [(String, DynFlag, Bool -> Deprecated)]