X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FIdInfo.lhs;h=9dda37e46919ede4e55917fc2a1b4e5add4b3587;hb=94bf0d3604ff0d2ecab246924af712bdd1c29a40;hp=c383f89a597701d1085c767dd1775bff88cd2f9f;hpb=2b64626e8b639030f62b1c1926db30288a5e9f7d;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs
index c383f89..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`
+  = -- 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