[commit: ghc] master: Delete some dead code (72883e4)

[Simon Peyton Jones]

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 <simonpj at microsoft.com>
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