From a937c2742f1b71bac0e0f4144e9638b2797c819b Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Fri, 3 Sep 2010 23:45:19 +0000 Subject: [PATCH] Deprecate NoRelaxedPolyRec --- compiler/main/DynFlags.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 01cc7af..75f31ca 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1502,7 +1502,7 @@ type FlagSpec flag , Bool -> DynP ()) -- Extra action to run when the flag is found -- Typically, emit a warning or error -- True <=> we are turning the flag on - -- False <=> we are turning the flag on + -- False <=> we are turning the flag off mkFlag :: Bool -- ^ True <=> it should be turned on @@ -1714,7 +1714,10 @@ xFlags = [ ( "AlternativeLayoutRuleTransitional",Opt_AlternativeLayoutRuleTransitional, nop ), ( "DatatypeContexts", Opt_DatatypeContexts, nop ), ( "MonoLocalBinds", Opt_MonoLocalBinds, nop ), - ( "RelaxedPolyRec", Opt_RelaxedPolyRec, nop ), + ( "RelaxedPolyRec", Opt_RelaxedPolyRec, + \ turn_on -> if not turn_on + then deprecate "You can't turn off RelaxedPolyRec any more" + else return () ), ( "ExtendedDefaultRules", Opt_ExtendedDefaultRules, nop ), ( "ImplicitParams", Opt_ImplicitParams, nop ), ( "ScopedTypeVariables", Opt_ScopedTypeVariables, nop ), -- 1.7.10.4