Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.6
http://hackage.haskell.org/trac/ghc/changeset/e3667551d764232faff0e5280a1de3c1349e7c4c >--------------------------------------------------------------- commit e3667551d764232faff0e5280a1de3c1349e7c4c Author: Simon Peyton Jones <simo...@microsoft.com> Date: Mon Oct 29 23:19:32 2012 +0000 Fix bug with reporting deprecated use of flag (Trac #7349) >--------------------------------------------------------------- compiler/main/DynFlags.hs | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 6634efd..c1dc88d 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -2040,7 +2040,8 @@ fFlags = [ fLangFlags :: [FlagSpec ExtensionFlag] fLangFlags = [ ( "th", Opt_TemplateHaskell, - deprecatedForExtension "TemplateHaskell" >> checkTemplateHaskellOk ), + \on -> deprecatedForExtension "TemplateHaskell" on + >> checkTemplateHaskellOk on ), ( "fi", Opt_ForeignFunctionInterface, deprecatedForExtension "ForeignFunctionInterface" ), ( "ffi", Opt_ForeignFunctionInterface, @@ -2411,11 +2412,11 @@ setPackageTrust = do l <- getCurLoc upd $ \d -> d { pkgTrustOnLoc = l } -setGenDeriving :: Bool -> DynP () +setGenDeriving :: TurnOnFlag -> DynP () setGenDeriving True = getCurLoc >>= \l -> upd (\d -> d { newDerivOnLoc = l }) setGenDeriving False = return () -checkTemplateHaskellOk :: Bool -> DynP () +checkTemplateHaskellOk :: TurnOnFlag -> DynP () #ifdef GHCI checkTemplateHaskellOk turn_on | turn_on && rtsIsProfiled _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
