Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/72883e48d93528acf44e3ba67c66a66833fe61f3 >--------------------------------------------------------------- commit 72883e48d93528acf44e3ba67c66a66833fe61f3 Author: Simon Peyton Jones <[email protected]> Date: Fri Jul 15 21:16:48 2011 +0100 Delete some dead code >--------------------------------------------------------------- compiler/simplCore/CoreMonad.lhs | 13 ------------- 1 files changed, 0 insertions(+), 13 deletions(-) diff --git a/compiler/simplCore/CoreMonad.lhs b/compiler/simplCore/CoreMonad.lhs index 8e6ec5c..1cdfe1b 100644 --- a/compiler/simplCore/CoreMonad.lhs +++ b/compiler/simplCore/CoreMonad.lhs @@ -13,8 +13,6 @@ module CoreMonad ( FloatOutSwitches(..), dumpSimplPhase, - defaultGentleSimplToDo, - -- * Plugins PluginPass, Plugin(..), CommandLineOption, defaultPlugin, bindsOnlyPass, @@ -340,17 +338,6 @@ pprFloatOutSwitches sw , ptext (sLit "Consts =") <+> ppr (floatOutConstants sw) , ptext (sLit "PAPs =") <+> ppr (floatOutPartialApplications sw) ]) --- | A reasonably gentle simplification pass for doing "obvious" simplifications -defaultGentleSimplToDo :: CoreToDo -defaultGentleSimplToDo = CoreDoSimplify 4 -- 4 is the default maxSimpleIterations - (SimplMode { sm_phase = InitialPhase - , sm_names = ["Gentle"] - , sm_rules = True -- Note [RULEs enabled in SimplGently] - , sm_inline = False - , sm_eta_expand = False - , sm_case_case = False - }) - -- The core-to-core pass ordering is derived from the DynFlags: runWhen :: Bool -> CoreToDo -> CoreToDo runWhen True do_this = do_this _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
