From: Ian Lynagh <igloo@earth.li>
Date: Wed, 20 Oct 2010 14:37:10 +0000 (+0000)
Subject: Don't seq unfoldings
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2ff2497dc374175b8ed81446258baf208d1f3e6e;p=ghc-hetmet.git

Don't seq unfoldings
We generate intermediate unfoldings which are just thrown away, so
evaluating them is a waste of time.
---

diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs
index 77f0325..9dda37e 100644
--- a/compiler/basicTypes/IdInfo.lhs
+++ b/compiler/basicTypes/IdInfo.lhs
@@ -243,7 +243,10 @@ setUnfoldingInfoLazily info uf 	-- Lazy variant to avoid looking at the
 
 setUnfoldingInfo :: IdInfo -> Unfolding -> IdInfo
 setUnfoldingInfo info uf 
-  = seqUnfolding uf `seq`	-- This seq makes a BIG difference to Trac #4367
+  = -- We don't seq the unfolding, as we generate intermediate
+    -- unfoldings which are just thrown away, so evaluating them is a
+    -- waste of time.
+    -- seqUnfolding uf `seq`
     info { unfoldingInfo = uf }
 
 setArityInfo :: IdInfo -> ArityInfo -> IdInfo