From 9d6d205a4fdf36ecad50ba5fe88f956a7e3ce16a Mon Sep 17 00:00:00 2001
From: Matthew Pickering <matthewtpickering@gmail.com>
Date: Wed, 29 Mar 2017 11:20:36 +0100
Subject: Tweak unfolding defaults

---
 compiler/main/DynFlags.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index a4095f1b10..97921c6b85 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1675,8 +1675,8 @@ defaultDynFlags mySettings =
         -- E.g. 450 is not enough in 'fulsom' for Interval.sqr to inline
         -- into Csg.calc (The unfolding for sqr never makes it into the
         -- interface file.)
-        ufCreationThreshold = 750,
-        ufUseThreshold      = 60,
+        ufCreationThreshold = 2000,
+        ufUseThreshold      = 400,
         ufFunAppDiscount    = 60,
         -- Be fairly keen to inline a function if that means
         -- we'll be able to pick the right method from a dictionary
-- 
cgit v1.2.1