Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/2bf60839b316d5b6f0324db9ad0ced8c3ec94221 >--------------------------------------------------------------- commit 2bf60839b316d5b6f0324db9ad0ced8c3ec94221 Author: David Terei <[email protected]> Date: Mon Apr 2 15:07:26 2012 -0700 Fix uneeded test in safe haskell code >--------------------------------------------------------------- compiler/main/DynFlags.hs | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index c24e577..e111bea 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1364,12 +1364,13 @@ safeFlagCheck :: Bool -> DynFlags -> (DynFlags, [Located String]) safeFlagCheck _ dflags | not (safeLanguageOn dflags || safeInferOn dflags) = (dflags, []) +-- safe or safe-infer ON safeFlagCheck cmdl dflags = case safeLanguageOn dflags of True -> (dflags', warns) -- throw error if -fpackage-trust by itself with no safe haskell flag - False | not cmdl && safeInferOn dflags && packageTrustOn dflags + False | not cmdl && packageTrustOn dflags -> (dopt_unset dflags' Opt_PackageTrust, [L (pkgTrustOnLoc dflags') $ "-fpackage-trust ignored;" ++ _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
