[project @ 1999-07-07 15:28:19 by simonmar]

Reduce ScrutConDiscount from 3 to 2.

ghc/compiler/main/CmdLineOpts.lhs

@@ -420,7 +420,7 @@ opt_SimplPedanticBottoms	= lookUp SLIT("-fpedantic-bottoms")
 opt_UF_HiFileThreshold		= lookup_def_int "-funfolding-interface-threshold" (30::Int)
 opt_UF_CreationThreshold	= lookup_def_int "-funfolding-creation-threshold"  (30::Int)
 opt_UF_UseThreshold		= lookup_def_int "-funfolding-use-threshold"	   (8::Int)	-- Discounts can be big
-opt_UF_ScrutConDiscount		= lookup_def_int "-funfolding-con-discount"	   (3::Int)
+opt_UF_ScrutConDiscount		= lookup_def_int "-funfolding-con-discount"	   (2::Int)
 opt_UF_FunAppDiscount		= lookup_def_int "-funfolding-fun-discount"	   (6::Int)	-- It's great to inline a fn
 opt_UF_PrimArgDiscount		= lookup_def_int "-funfolding-prim-discount"	   (1::Int)
 opt_UF_KeenessFactor		= lookup_def_float "-funfolding-keeness-factor"	   (2.0::Float)