X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FDynFlags.hs;fp=compiler%2Fmain%2FDynFlags.hs;h=6804c03a164b75ca075f374dcf9a67c17451fc4b;hp=01e0cf8742d374cbc3f20e0579d25f9516b74f3f;hb=80f5e7009434750cee746bd89f7eea5f7c7fa3fd;hpb=3a0a91b41c5b6ad347711f054feb10c20a6b2f77

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 01e0cf8..6804c03 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -762,9 +762,9 @@ defaultDynFlags mySettings =
         maxSimplIterations      = 4,
         shouldDumpSimplPhase    = Nothing,
         ruleCheck               = Nothing,
-        specConstrThreshold     = Just 200,
+        specConstrThreshold     = Just 2000,
         specConstrCount         = Just 3,
-        liberateCaseThreshold   = Just 200,
+        liberateCaseThreshold   = Just 2000,
         floatLamArgs            = Just 0,	-- Default: float only if no fvs
         strictnessBefore        = [],